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rELEConnuTEir 


INTEGRATED WORD PROCESSING 
AND COMMUNICATIONS SOFTWARE 

For the Tandy 1000, 1200 and 2000, and IBM-PC/XT/AT and compatible 
computers. Uses all the Model 100/Tandy 200 TEXT and TELCOM 
commands. 

WHY BUY JUST FILETRANSFER? 

TURN YOUR DESKTOP COMPUTER INTO 
A SUPER MODEL 100/TANDY 200’! 

For $200 you can put all this on your desktop computer: 

• Full function Word Processor based on and compatible with 
Model 100/Tandy 200 TEXT Editor 

• Super Power Communications based on and compatible with 
Model 100/Tandy 200 TELCOM. 

• Fast File Transfer between Model 100/Tandy 200 and desktop 
at 9600 baud. Fully prompted at every step so you’ll never get 
lost. And we supply the cable at no extra cost! 

• Host Mode for remote control of desktop computer from Model 
100, Tandy 200, dumb terminal, or any computer with Telcom 
capability. 

You don’t have to put extra code on your Model 1 00 or Tandy 200 to transfer 
files — no cassettes, no ROM cartridges. Telecommuter will exchange files 
with any computer that has an RS-232 port and communications software, 
even another desktop computer. 

Optional advanced features include XMODEM protocol file transfer, full 
VT100 terminal emulation, Telcom scripts and macros for automatic dialup 
and file transfer, DOS access from editor, and multiple access level Host 
Mode. TC-Corporate allows individual user assignments, such as pass- 
word, access level and time limit; keeps activity log. 

Telecommuter is a new and significantly easier way to use your portable and 
desktop computers together. Call or write today for more information on our 
entire line of fine software products. 

We accept MasterCard and VISA for mail or telephone orders, and we ship 
free in the USA. Upgrade any time for price difference. 

TC-standard or TC-XMODEM $200, TC-DeLuxe $300, TC-plus $400, and 
TC-Corporate $1000. 

Look for Telecommuter at your local Radio Shack Computer Store! 
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j From Computer Plus to YOU . . . ^ 

PLUS after PLUS after PLUS 





Smith Corona L-1000 
$259 


DMP105 $160 


Color Computer II 
W/16K Ext. Basic $179 


BIG SAVINGS ON A FULL COMPLEMENT OF RADIO SHACK COMPUTER PRODUCTS 


COMPUTERS 

Tandy 1000 1 Drive 128K 779.00 

Tandy 1000 HD 10 Meg. 256K 1539.00 

Tandy 1200 10 Meg. 256K 1599.00 

Tandy 2000 2 Drive 256K 1295.00 

Tandy 2000 10 Meg. 256K 2025.00 

Model IV Desktop 64K 959.00 

PRINTERS 

Radio Shack DMP-2100P 1159.00 

Radio Shack DMP-430 660.00 

Radio Shack DWP-220 Daisy Wheel469.00 
Radio Shack TRP-100 Portable 229.00 
Silver Reed EXP-550 Daisy Wheel 430.00 
Star SG-10 245.00 

Star SG-15 410.00 

Star SD-10 365.00 

Panasonic P-1091 275.00 

Toshiba 351 1325.00 

CITOH Prowriter 851 0AP + NLQ 345.00 
Okidata 192 ~ 379.00 

Okidata 193 539.00 

Epson LX-80 245.00 

Epson FX-80 359.00 


Tandy 1000/1200 accessories 

Tandy 1000 Disk Drive Kit 159.00 

Tandy 1000 10 Meg. Hard Drive 579.00 
Hard Drive Controller Board 265.00 
256K Ram Board (inc. 128K & DMA)199.00 
512K Ram Board (includes 128K) 169.00 
256K Memory Plus Expansion Brd.249.00 
PBJ Multi-Function Board (128K) 269.00 
PBJ Multi-Function Board (256K) 299.00 
PBJ Multi-Function Board (51 2K) 349.00 
128K Ram Upgrade Kit (Tandy) 115.00 
128K Ram Upgrade Kit (NEC) 78.00 
256K Ram Upgrade (for PBJ Board)69.00 
300 Baud Modem Board 129.00 

RS-232 Serial Board 89.00 

Digi-Mouse/Clock Board 89.00 

Tandy 1000/1200 monitors 
Tandy VM-2 Green Monitor 129.00 
Tandy CM-2 RGB Color Monitor 379.00 
Tandy VM-3 TTL Green Monitor 179.00 
Taxan 122 TTL Amber Monitor 139.00 
Tandy 1200 Text Monitor Adapt. 179.00 


Tandy 1200 Color/Graphics Adapt240.00 


CALL TOLL FREE 
1 - 800 - 343-8124 

• LOWEST POSSIBLE PRICES 

• BEST POSSIBLE WARRANTY 

• KNOWLEDGEABLE SALES STAFF 

• TIMELY DELIVERY 

• SHOPPING CONVENIENCE 


MODEMS 

Radio Shack DCM-3 Model 52.00 

Radio Shack DC Modem II 160.00 

Radio Shack DC Modem 2212 315.00 

Hayes Smartmodem II 300 Baud 215.00 
Hayes Smartmodem 1200 Baud 429.00 
Novation J-Cat 300 Baud 115.00 

FOR EVERYONE 

Network Four Outlet Surge Prot. 69.95 
CCR-81 Cassette Recorder 52.00 

CCR-82 Cassette Recorder 43.00 

C-20 Digital Cassette Tapes (lOpk) 9.95 
Verbatim SSDD Plastic Box (lOpk) 24.95 
Verbatim DDDD Plastic Box (lOpk) 29.95 
Generic SSDD Diskettes (lOpk) 17.95 
NEC 64K Ram Chips (set of 8) 49.00 

Radio Shack 16K Ram Chips (8) 25.00 

Locking Disk Box (holds 70) 19.95 

Flip N File Disk 50 15.00 

Fanfold CleanEdge Paper (2600) 35.00 

Radio Shack software 10% off. 

Send for complete listing of 
brand name software and hardware. 


com 


P.O. Box 1094 
480 King Street 
Littleton, MA 01460 


SINCE 1 


IN MASSACHUSETTS CALL (617) 486-3193 




Tandy 1000 $779 
Tandy 1000 HD $1539 


Tandy 1200 HD $1599 
10 Meg. 256K 


Tandy 200 24K$739 
Model 100 24K $510 


TRS-80 is a registered trademark of Tandy Corp. 
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Tandy computers 
offer everything 
...almost 


Check out the software that completes their systems 

— ilePro® 


Tandy MS-DOS Software Comparison Chart 


GENERAL 

CHARACTERISTICS: 


Menu driven 


Allows user to create integrated 
business systems 


Developed systems and data can be 
moved to multi-user environments 


Professional support available 
from the software’s authors 


PRICE 


CAPACITIES: 


Fields per record 


Characters per record 


Records per file 


Indexes per file 


Number of digits per numeric field 


Number of files usable concurrently 


Files span multiple drives 


FEATURES: 


Full-screen facility for creating 
custom screen layouts 


Full-screen facility for creating 
custom report layouts 


Built-in field types 
(error checking) 


User-defined field types 


Conditional math 


User-defined menus 


Change file layout without 
losing existing data 


Data protection 


Password security 


pfs 

File/Report 


yes 


no 


no 


no 


$265 


100 


1679 


1300 


20 


no 


yes 


no 


no 


no 


no 


no 


possible 


no 


no 


dBase” 

II 


no 


programmer 

required 


no 


no 


$595 


32 


1000 


65535 


10 


no 


no 


programmer 

required 


programmer 

required 


programmer 

required 


possible 


programmer 

required 


programmer 

required 


filePro 16 

Smallware 


YES 


- 


YES 




YES 


YES 


$495 


999 


_ 


4608 


: 


16,000,000 

k 


12 


24 


z 


10 
up to 8 



The new Tandy computers 
can really speed things up. If 
you don’t let obsolete 
software bog you down. 

Try file Pro 16, the latest 
generation of data base 
software from the authors of 
Profile®. 

Choose it for its power 
(check our capacities); its 
ease-of-use (check our 
features); and its unique 
ability to grow as your needs 
grow, and even move the 
systems you create to multi- 
user computers. 
filePro is available for the 
Tandy 1000, 1200 and 2000 
computers (hard disk 
required). Available directly 
from us or through your 
Radio Shack store’s Express 
Order Software service. 

To order, call 
(800) 847-4740. 

For customer service or 
when dialing in New York 
State, call (212) 398-9290. 
Ask for Smallware sales. 
Visa and MasterCard 
accepted. 

Also available for other computers, 
including IBM PC, IBM PC-XT, and 
NCR Decision Mate. 



The Computer Company, Inc. 

^240 230 West 41st Street, Suite 1200, New York, New York 10036 

Smallware and IllePro are registered trademarks of The Small Computer Company Inc. dBase II Is a trademark o ( Ashton-Tate. pfs File/Report 
is a registered trademark of Software Publishing. Profile is a registered trademark of Tandy Corporation. 
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Changes Blowing in 
the Autumn Winds 


T here are a lot of exciting things 
going on in our world of com- 
puters and I hope to share some 
of that with you. 

First of all, things are really shaping 
up for our first-ever PCMfest in 
Princeton, October 11-13! Take a look 
at the information inside this issue, clip 
out the coupon and get some tickets 
now. You’ll have a good time! 

Our biggest PCMfest news is the 
acceptance by Contributing Editor Bill 
Barden to be our guest speaker at the 
breakfast on Saturday morning. Bill is 
not only highly articulate in print, but 
very personable as well, and will, I am 
certain, provide an excellent program. 

So come to PCMfest, see the biggest 
display of Tandy software and hard- 
ware ever put together for the MS-DOS 
and portable machines, meet many of 
the “names” who have been a part of 
PCM and hear (and meet) Bill at the 
breakfast. This is not one to be missed. 

It gives me a great deal of pleasure 
to be able to announce that we have 
a new managing editor for PCM, Danny 
Humphress, who moves up from his 
Technical Editor’s slot. Courtney Noe, 
who gave “birth” to PCM over two years 
ago, moves up into the position of 
Executive Editor. Courtney has also 
been given increased responsibilities 


involving sister publications THE RAIN- 
BOW and SOFT SECTOR, our magazine 
for the Sanyo computer family. 

Danny, as all of you who read these 
pages know, is a wizard with all the 
computers which are covered by PCM. 
He is the author of the portable bar 
code programs, has been “Mr. MS- 
DOSsier” and put together the entire 
report on ViaNet. 

Courtney’s new position will allow 
him to concentrate on his first love, 
magazine production. Our local punster 
as well, if you’ve ever groaned over one 
of our headlines or cover lines, Court- 
ney — sometimes known as “Dr. Noe” 
a la James Bond, probably wrote it. 

And there are some other things 
coming up . . . but we’ll have to wait 
awhile to let you know about some of 
them. In the meantime, as you no doubt 
have noticed, PCM keeps growing and 
expanding and we welcome you to keep 
growing with us. And, too, thanks for 
your support — more and more adver- 
tisers keep telling me they are getting 
feedback from you that you saw their 
ads here. It really helps us grow to 
become the magazine you — and we 
— want PCM to be! 

— Lonnie Falk 
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COMPLETE KIT- 
NOTHING ELSE TO 
BUY 


• NO ADDED MEMORY 
BOARD NECESSARY 


BOOTS OFF HARD 
DRIVE 


iwt 11 t|H9M 
l"«5l L»tW|. ,1 V.‘'l 1. 


INSTALLS IN 
MINUTES WITH ONLY 
A SCREWDRIVER 


TERMS- 
MONEY ORDER 
CASHIER’S CHECK 
*CO.D. 

*MASTERCARD/VISA 
5% FEE 


INTERNAL KITS 
AVAILABLE FOR*: 
TELEVIDEO 
TANDY 1000 
SANYO 
COMPAQ 
LEADING EDGE 
PANASONIC 
CORONA 
IBM PC 
NOVA 

AT&T, NCR & ITT 


nr* Vr* 

w-} 


PLUS SHIPPING & 
HANDLING 


HARD DRIVE & CONTROLLER ARE 100% IBM COMPATIBLE. WE USE ONLY QUALITY 
DRIVES & WESTERN DIGITAL CONTROLLERS FOR THE HIGHEST QUALITY WE 
BACK THE FULL SYSTEM WITH A 1 YEAR WARRANTY. THE SYSTEM COMES 
COMPLETE WITH ALL CABLES & MOUNTING HARDWARE. REQUIRES NO ADDED 
MEMORY BOARD TO OPERATE. 20 & 32 MEGABYTE INTERNAL HARD DISKS ALSO 
AVAILABLE. COMPLETE INFO AVAILABLE UPON REQUEST. 


RTX TECHNOLOGIES, INC 
PO. BOX 50398 
NASHVILLE, TENN. 37209 
(615) 373-1251 


SAME PRICE AS TANDY 
ALL MS-DOS COMPUTERS 


| 10 MEG 

i 20 MEG 

| 32 MEG 

1 $895.00 

| $1195.00 

| $1395.00 



PERFECT WORDS 

Editor: 

I’m finally getting to something I meant 
to do several months ago when I first 
finished configuring, experimenting with 
and using WordPerfect 4.0 in my business. 
I’d been through five biggies (who shall 
remain nameless) and several less expensive 
programs. There were always more tradeoffs 
than benefits for all of them as far as I was 
concerned. They were poorly documented, 
too clumsy and inconvenient, too slow, too 
complex ... too something. 

What a change! WordPerfect 4.0 is fast, 
straightforward, convenient, flexible, pow- 
erful, easy to use, reasonably priced and, 
most of all, supported beyond my wildest 
expectations. They don’t yet have an undo 
function or on-screen windowing but they 
do have the ability to keep two separate 
documents resident at the same time with 
a “switch” function to flip back and forth 
and swap text, etc. 

WordPerfect will truly be “perfect” with 
Version 5.0 due out shortly . . . Both items 
on my wish list are included (windows and 
undo). What will I find [for nitpicking] . . . 
not much I venture. 

Alexander T. Irving 
New York, NY 

100 DISK COMPATIBILITY 

Editor: 

I recently received Lucid from the 
Portable Computer Support Group and I 
am enthralled with its ease of operation and 
speed. Along with Text Power 100 from the 
Covington Group, Lucid allows me to 
handle all my sales projections and corres- 
pondence associated with my new business. 
And some people think they need something 
large and bulky to get their work done. 

I would find it helpful to know if any 
reviewed programs can work with the Radio 
Shack Disk/ Video Interface before I buy 


them and if they will show a partial or full 
screen display. For the record, the display 
for Lucid is the same as what you see on 
the 8 by 40 screen but the cursor does not 
work. The Text Power 100 does not work 
with the DVI but they have a version of 
the program for it. 

There is a market for programs on disk, 
such as the business series on multiple 
cassettes. Perhaps some of your advertisers 
might consider a move into such an area. 

Gordon Me Elroy 
Narberth, PA 

Editor’s Note: We try in our reviews 
to indicate the software written in 
machine code which may conflict with 
bar code readers, the Disk/ Video 
Interface or other programs. The 
review of Text Power 100 (February 
1985 issue of PCM) mentions the need 
to be specific in your order of what 
competing machine code software 
you are using. More software writers 
need to realize, and many have, the 
purchaser may need to offset load 
their programs. 

TELECOM MATE 

Editor: 

The Desk Mate software package that 
comes with the Tandy 1000 is really quite 
good. 

One area I ran into that caused a little 
trial and error until I got it figured out is 
the TELECOM application. This informa- 
tion may be of help to some of your other 
readers. 

I call the Dow Jones News Retrieval 
service rather often and the automatic logon 
(AUTO LOG) feature is a real joy. There 
are some ground rules that must be observed 
in setting up the AUTO LOG EDIT module, 
however. In addition to setting the STRTU5 : 

Fl correctly, based on Baud rate, parity, etc., 
and then entering the phone number in 


response to CRLL : F2, you press F4 SEND: 
and type “^C” (CONTROL-C). Following 
that, you press F3 which gives you a 
RECE I VE : entry, and here is where you must 
pay attention to what the news service sends 
to your computer. You must use the exact 
text and symbols that they will be sending 
to you. And this means, if they use capital 
or lower-case letters, you must use the same. 
If they use four question marks (as in WHRT 
SERVICE PLERSE????) you must use four. 

I use a Hayes SmartModem, 300 Baud. 
Attached is a screen dump of the AUTO 
LOG EDIT screen for automatically logging 
onto the Dow Jones News Retrieval service. 
Also attached is a screen dump of the 
DEFINE MODEM FOR COMPUTER 
DIALING screen for the Hayes 
SmartModem. 

It is a delight to see something in print 
about the Tandy 1000. I love mine. 

Alva M. Hill 
Bellingham, WA 


RUT0L0G EDIT 

STRTUS: Y,30,7,E,1,OFF,OFF, 
OFF, OFF, 3 
CRLL: 647 0666 
SEND: ^C 

RECV: please type your terminal 
Identi f ier 
SEND: fl 

RECV: please log in 
SEND : dowl ; ; 

RECV: UIHAT SERVICE PLEASE???? 
SEND: djns'^M 
RECV: ENTER PASSWORD 
SEND: 39V9VIKAriH / ''ri 


DEEINE MODEM FOR COMPUTER DIALING 
SEND: AT DT 
NUMBER 
SEND: ^M 
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Text processing power that no other program can equal. 


PCSG says “Send it back in 30 days for a full 
refund if you don’t agree.” 

on Snap-in ™ Cartridge $149.95 




WRITE ROM is the definitive word 
processing extension for the Model 100. 
PCSG the first text formatter for the Model 
100, now sold by Radio Shack as Scripsit 
100. Now 18 months later PSCG introdu- 
ces WRITE ROM. Those who have expe- 
rienced it say WRITE ROM literally dou- 
bles the power of the Model 100. 

First of all, WRITE ROM as its name 
implies is on a snap-in ROM. You simply 
take a quarter and open the little compart- 
ment on the back of the Model 100 and 
press it in. It is as easy as an Atari game 
cartridge. You can use other ROM pro- 
grams like Lucid whenever you wish. 

WRITE ROM lets you do every format- 
ting function you would expect like setting 
margins, centering, right justifying and 
having headers and footers. But it does 
them under function key control. 

WRITE ROM remembers your favorite 
format settings so that you can print a 
document without any setup, but you can 
change any formatting or printing parame- 
ters instantly with a function key. 

WRITE ROM’s “pixel mapping” feature 
shows you an instant picture on the screen 
of how your printout will look on paper. 

In all there are 64 separate features and 
functions that you can do with WRITE 
ROM, and some of these features are truly 
breakthroughs for the Model 100. 

First, WRITE ROM lets you do search 
and replace. Any word or phrase in a 
document can be searched for and 
replaced with any other phrase where the 
search words appear. 

Second, WRITE ROM lets you send any 
text (formated or not) to any other 
computer over the phone with just a 
function key. What’s more it dials and 
handles sign on and sign off protocol 
automatically. 

Third, WRITE ROM has a wonderful 
feature called Library that lets you record 
favorite phrases, words or commonly used 
expressions (often called boilerplate). 


Any place you wish any Library text to 
appear you just type a code. WRITE ROM 
automatically inserts the text just like a 
Xerox Memory Writer. 

Picture what you can do with that kind 
of capability. 

WRITE ROM is blindingly fast. No one 
can claim faster operation. Because it is 
on ROM it uses virtually none of your 
precious RAM. It works with any printer, 
serial or parallel. You can make a duplicate 
copy of a document file under a new 
filename. Rename or delete (kill) any RAM 
file with function key ease. 

This description only scratches the 
surface of the amazingly powerful piece 
of software. Dot commands allow control 
of such things as margins, centering, line 
spacing and other changes in the middle 
of a document. Most are Wordstar 
compatible. 

A mail merge feature allows you to send 
the same document to every name on your 
mailing list, personalized for each 
recipient. 

WRITE ROM enables you to do under- 
lining, boldface and correspondence 
mode as well as any other font feature like 
superscripts that your printer supports in 
a way that many users say “is worth the 
price of the program.” 

To underline you don’t have to 
remember a complicated printer code. You 
just type CODE U, and to stop underline, 
CODE U again. The CODE key is to the 
right of your spacebar. Boldface? CODE 
B to start and stop. Easy to remember and 
do. Five different printer features of your 
choice. 

We couldn’t list all the features here. For 
example, not just double space but triple 
or any other. You can use your TAB key 
in a document. WRITE ROM allows you 
to indent. This means you can have 
paragraphs that have a first line projecting 
to the left of the rest of the paragraph. 
Plus many more features. 



WRITE ROM has a feature unique to any 
word processor on any computer. It is 
called FORM. FORM is an interactive 
mechanism that lets you create screen 
prompts so that you or someone else can 
answer them to fill out forms or 
questionaires. 

With FORM anyplace where you had 
previously typed a GRAPH T and a prompt 
in a document, WRITE ROM will stop and 
you are shown that prompt on the screen. 
You can type in directly on the screen and 
when you press F8 you see the next 
prompt. Goes to a printer or a RAM file. 

Think of how you can use FORM. A 
doctor or nurse could use it for a patient’s 
history with each question appearing on 
the screen. An insurance salesman could 
have his entire questionaire. You could 
construct a series of prompts to answer 
correspondence typing the answers, even 
using Library codes. This feature lets you 
answer letters in rapid fire fashion each 
with personalized or standard responses. 

Before WRITE ROM you had to be a 
programmer to create a series of prompts. 
Now its as simple as GRAPH T. 

PCSG makes the claim that WRITE ROM 
is the easiest, fastest and most feature rich 
formatter for the Model 100. We are happy 
to offer WRITE ROM because it expands 
the 100 to a dimension of text processing 
you cannot equal on even larger 
computers. 

We brashly state that WRITE ROM is the 
best you can buy. But put that to the test. 
If you aren’t as excited as we are return 
it for a full refund. Priced at $149.95 on 
snap-in ROM. MasterCard, VISA, Ameri- 
can Express and COD. 


1-214-351-0564 


fDRTABLE COMPUTER SUFIORT GROUP 


11035 Harry Hines Blvd., #207, Dallas, Texas 75229 • 1 (214) 351-0564 

PCSG provides hotline software support for the Model 100 Call us at 1-214-351-0564 
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I t was another meeting of the Orange 
County Tandy Users Group. This 
month we were sharing the building 
with the Orange Apple Computer Club, 
a rowdy bunch. Their meeting over, 
some of the Apple group were hanging 
around our gathering, making snide 
remarks about Tandy 1000s. Ah well, 
to each his own, I thought, even if you 
have an outdated system ... I noticed 
that the guest speaker was my friend, 
Guru Dan, lecturing on Tandy 1000 
sounds. Dan was a hardware whiz, an 
unconventional electronics engineer 
who had designed computer electronics 
as diverse as moving billboards, heart 
monitors, and automated security 
systems. Dan was into Zen, tofu, and 
Tandy 1000s, not necessarily in that 
order. This should be interesting, I 
thought. 

Dan was just starting as I took a seat. 
“There are three ways in BASIC to 
produce sounds on the 1000,” Dan 
stated. 

Is That Your Beeping Computer? 

“The simplest sound that the Tandy 
1000 can make is a beep.” So saying, 
he entered BEEP after the “OK” prompt 
in BASIC and the system made a quarter- 
second beep sound. “BEEP is used to 
signal an error condition or to attract 


By Bill Barden, Jr. 
PCM Contributing Editor 

the attention of an operator,” he went 
on. 

“Does anybody know of another way 
to get a beep?” Dan asked. 

“Yeah, your Tandy 1000s will beep 
if you pull their plugs,” said one of the 
Apple hecklers. 

Unperturbed, Dan continued — “A 
beep is also produced by printing a 
CHR$ ( 7 ) character. The CHR$(7) 
character is a BEL, standing for bell. 

On the old teletypewriters there was an 
actual bell that could be rung to attract 
the operator’s attention — a hot wire 
service story rang the bell several times! 

The BEL code is a leftover from those 
days of wooden men and iron ma- 
chines,” Dan lamented. 

“Forget about BEEP for music or 
sounds — about all it does it make an 
800-Hertz sound,” Dan advised. “Ev- 
erybody know what a Hertz is?” he 
asked. Seeing some raised eyebrows, 
Dan continued. “A Hertz is just a 
measure of the frequency of a sound, 
Here’s the way a pure audio tone looks,” 
Dan stated. He drew a sine wave on 
the blackboard (see Figure 1). “This sine 
wave is 800 cycles-per-second , or 800 
Hertz. A cycle is the time it takes to 
get back to the starting point. The sine 
wave represents air pressure or voltage 
fed to a loudspeaker to produce that 
air pressure.” 


(William Barden , Jr., is a master 
communicator in a field in which he 
is one of the few recognized experts — 
microcomputers. A prolific author of 
more than 27 books and handbooks on 


compu ters and computer programming, 
Bill also has authored several instruc- 
tional software projects for Tandy / 
Radio Shack.) 
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system. The neat thing about SOUND is 
that you can play a lot more frequencies 
than just musical notes. 

“The duration parameter controls the 
length of the tone in clock ticks. 
Everbody know what a clock tick is?” 
Dan asked. 

“Do they hang from binary trees and 
drop onto you as you walk by?” an 
Apple SIG member shouted. 

I noticed a twitch in Dan’s lower left 
eyelid. 

“Each clock tick is generated from 
an internal clock in the system; 18.2 
clock ticks occur every minute, making 
each clock tick 0.0549 seconds long. A 
one-second duration middle C would 
be sounded by (Dan wrote on the 
board): 


“Of course, most sounds produced 
aren’t pure sine waves,” Dan went on. 
“Most sounds look like the second 
waveform — lots of frequencies all 
superimposed on one another. That’s 
what gives a different sound to a C 
played on a piano keyboard compared 
to a C played on a detuned samisen.” 
Dan’s Far Eastern meditation was 
surfacing again, I thought. Next, he’ll 
be talking about satori and sushi. 

“The problem with computers is that 
it’s not too easy to produce a sine wave. 
However, it is easy to generate a square 
wave ,” Dan declared, drawing another 
figure on the blackboard (Figure 2). 
“Square waves are generated by turning 
a voltage off and on. What we’re 
hearing on the 800-Hertz beep is a 
square wave,” Dan continued. “Believe 
it or not, square waves are made up 
of a lot of superimposed odd harmonics. 
Here’s a diagram I produced (Figure 
3) showing how harmonic frequencies 
add together to make up the 800-Hertz 
square wave. Of course, those harmonics 


are of lower volume than the main 
frequency, but they are there, and make 
a square wave of 800 Hertz sound 
different from a sine wave.” 

Dan Has SOUND Ideas 

“The second way to make sounds 
with a Tandy 1000 in BASIC is to use 
SOUND,” Dan went on. 

“Each SOUND statement produces one 
tone. The SOUND action is the same on 
the 1000 as it is on the IBM PCy>. The 
SOUND statement looks like this,” Dan 
said, illustrating the syntax on the 
blackboard: 

SOUND freq, duration 

“ Freq is a numeric expression in the 
range of 109 to 32767 and duration is 
.0015 through 2978. The freq parameter 
sets the frequency of the tone played 
— the freq value is the actual frequency 
produced. Of course, you won’t be able 
to hear tones much over 6000 or 7000 
Hertz due to the limitations of the 


SOUND 262,18 

“Here’s a program that will sweep the 
tones from low to high,” Dan offered, 
passing out another sheet (See Listing 
1). “You know, it’s a shame that Tandy 
didn’t put in the other SOUND options 
that are in the PCjr — they allow you 
to change the volume and to play up 
to three voices. 

“But wait, I have a surprise for you. 
Tandy did include those parameters,” 
Dan said with a twinkle in his eye. 
“They’re in the BASIC, but just not 
documented — at least not in my 
manual. Here’s the proper format,” he 
said, writing on the board again: 

SOUND freq, duration, volume, voice 

“The volume parameter is a value or 
expression in the range of 0 to 15. The 
default value appears to be 8. The 
greater the value, the louder the volume. 

“ Voice is 0, 1, or 2 for the voice 
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5 to 60 megabytes complete easy to install internal and external systems 
— will boot just like an XT — fully warranteed — 
same day shipping from stock — fast service — free technical assistance 


$499.95 to $999.95 

STREAMING OR FLOPPY TAPE BACK UP SYSTEMS 

complete internal and external systems 


$1,995.00 — IBM XT WORKALIKE SPECIAL 

20 megabytes — one floppy — 640K — clock calendar — serial port — parallel port 
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Keytronics 5151 style keyboard — one year warranty — shipped from stock 
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€ IBM/PC , TRS/80 Models I/III/IV/4P, Compaq, PC Workaiikes, Color Computers, Heath/Zenith, Max/80 

For the i 

\ Complete with Hardware, Cables, Software and Quikfit Installation 
5 Megabytes Internal Mount 



20 Megabytes Internal Mount 

5 Megabytes External System 

10 Megabytes External System 

20 Megabytes External System 

Tape Backup System — Interna; Or External 

. • | . . / IBM/Heath — DOS, 1.0, 2.0, 2.1, 3.0, or later ^ 

DOS Systems Available: \ TRS/80 -LDOS, TRSDOS 6.x, Newdos/80, Dosplus, CP/M, COCO DOS, Max/80 LDOS, OS9 

FULLY WARRANTIED — PARTS AND LABOR — 24 HOUR SERVICE — CALL TOLL FREE - 


... 


starting at $ 

tun i u” « 

I*;..*.****!* .’’.. starting at 

. . ./. starling at 

starting at 

starting at 

starting at 




279.95 

439.95 

579.95 

499.95 

639.95 

799.95 

449.95 


1 - 800 - 343-8841 


IBM ENHANCEMENT CARDS 


Multifunction with 384K $259.95 

Serial port, parallel port 
Clock calendar, game port 

Serial port — two port 69.95 

Monochrome only 119.95 

Monochrome graphics w/parallel port 159.95 

Network card 


Color graphics $139.95 

Monochrome/RGB Color 229.95 

Disk controller with cable — up to 4 drives 79.95 

384K memory 129.95 

Hard drive controller 159.95 

Keytronics 5151 style keyboard 129.95 

249.95 


DEALER INQUIRIES INVITED PRICES CHANGE EVERY DAY 
CALL 1-617-872-9090 CALL 1-800-343-8841 


PC 


© 

1985 


SOFTWARE SUPPORT, INC 


1 Edgell Road, Framingham, MA 01701 (617) 872-9090 Telex-383425 

Hours: Mon. thru Fri. 9:30 am to 5:30 pm (E.S.T.) Sat. 10 am to 3:30 pm 
SERVICE POLICY — Our Professional Technical Staff Is Available To Assist You Monday Through Saturday. 
WARRANTIES — Up To One Full Year Parts And Labor. Floppy Disk Drive Power Supplies — Five (5) Years. 
SERVICE — 24 Hour Turn-A-Round On All In-Stock Parts. Dealer Inquiries Invited. Call 617-872-9090 

Please Call For Shipping, Toll Free 1-800-343-8841 Prices and Specifications Ma> Change 

Handling And Insurance. Please Call Fur Our Latest Price Saving Specials. without Notice. 



(Listing 1) 





100 

1 Low to High Sweep 

Using 

SOUND 

1 10 

SOUND ON 



120 

FOR FREQ- 100 TO 

4000 

STEP 

10 

1 30 

SOUND FREQ, 1,1 5 



1 35 

FOR 1-1 TO 100: 

NEXT 

I 


140 

NEXT FREQ 





number. The Tandy 1000 allows three 
voices at one time. Everybody know 
about voices?” Dan queried. Eyebrows 
went up. “I guess voice comes from 
several singers singing the same melody 
or even different melodies, like a fugue. 
We’ll talk about how that’s done in a 
moment. But before I go on I should 
mention that a SOUND ON or SOUND OFF 
routes the sound to the audio output 
jack on back of the 1000. Be sure to 
do a SOUND ON before using an external 
amplifier. 

“OK, any questions so far?” Dan 
asked. 

“Yeah, when are you going to talk 
about a real machine?” growled an 
Apple heckler. 

Dan’s other eyelid twitched this time, 
but he regained his composure after a 
brief moment and went on. 

Background Music Isn’t Necessarily 
Muzak 

“The next thing I want to talk about 
is music background and foreground. 
On some computers, the computer 
controls the sound generation in soft- 
ware — it has to be executing a machine 
language program continually to pro- 
duce the sound. In the 1000, though, 
you can set a tone and go off and do 
some other processing. Microsoft calls 
this music background. Here’s an 
example.” Dan handed out another 
sheet with a listing on it, printed on 
the back of brochures for “Yoshi’s Kut- 
Rate Karate School.” Humm, looked 
like Dan had been doing more than 
meditating. On the listing I found: 

100 SOUND ON 

110 SOUND 600,100 

120 PRINT "Rt statement 120" 

“Let me run this simple program for 
you.” Dan loaded and ran the program 
on the 1000. The tone sounded, but 
almost immediately, while the tone was 
still present, “At statement 120” ap- 
peared on the screen. “This is music 
background — notice how the sound 
started and then BASIC continued? 
Music background is the default for 
SOUND. 


“OK, we’ve got one more statement 
to look at and then we’ll get into some 
more interesting topics.” 

Playing Music on the 1000 

“PLRY is the most powerful command 
in 1000 BASIC for musical sounds. It 
works like the DRRUJ command. Basi- 
cally, you PLRY a string made up of 
one-letter codes. The codes represent 
notes to be played, octave settings, 
length of notes, rests, tempo settings, 
and note lengths. 

“Here’s a typical PLRY for ‘The 
Yellow Rose of Texas’.” Dan loaded 
and started this statement: 

100 PLRY "t250o3plgf egggag 

2 f eg>cde2 . <gg>eeeed2c<b> 

cded2<Cgfegggaggfeg>cde 

2.<gg>f f f fedcc<g>edc2" 

“Let’s just briefly go through com- 
mands. I’ve prepared a ‘crib sheet’ for 
you.” Dan passed out the sheets to the 
audience. On the reverse side was a 
menu from “Au Naturel,” a local health 
food restaurant. Dan, Dan, I thought, 
always proselytizing. 

“First, notes. Within the string, ‘A’, 
‘B’, ‘C’, ‘D\ ‘E’, ‘F’ or ‘G’ play the 
corresponding notes in the current octave. 
Sharps are indicated by following the 
note value with a # or plus sign (+). 
Flats are indicated by a following minus 
sign. An alternate way to specifying 
note values is with the letter ‘N’ folio wed 
by zero to 84. The numeric value 
corresponds to the 12 notes of seven 
octaves. Values of one through 12 are 
‘C’, ‘D\ ‘E\ ‘F\ ‘G’, ‘A’ and ‘B’ of the 
first octave. A value of zero is a rest. 

“Seven octaves can be specified (zero 
through six). The default octave is 
octave four. Within the PLRY string, the 
letter ‘O’ followed by the digit 0 through 
6 specifies the octave. 05, for example, 
is octave five. However, a word of 
warning — octave zero will not produce 
the proper tones — the sound generator 
chip is not capable of producing the 
low frequencies in the first octave. 

“The character > within a string 
means “raise one octave” and the 
character < means lower one octave. 


This is usually followed by a note value. 
A <C, for example, means “play C one 
octave lower than the current octave. 
Once the octave is changed, it remains 
changed. 

“Within the string, an ‘L’ character 
followed by a value of one through 64 
sets the note duration to 1/n. For 
example, LB sets the note duration to 
an eighth note, L16 sets sixteenth notes, 
and so forth. This note duration 
remains in force until a new ‘L’ defi- 
nition. If you want to play a note of 
a specific duration only once, and retain 
the current duration, the note character 
is followed by a duration value. R4, for 
example, plays a quarter note ‘A’ in the 
current octave. 

“A dot after a note increases the 
length of the note by one-half. A second 
dot adds another one-quarter, a third 
dot adds another one-eighth, and so 
forth. 

“The ‘P’ character in a string followed 
by a value from one through 64 causes 
a rest of duration 1/n in the same way 
the note length is calculated. A P4, for 
example, is a quarter rest. Rests may 
also be dotted. 

“A ‘T’ character in the string followed 
by a value of 32 through 255 sets the 
tempo in quarter notes in a minute. The 
default is a tempo of 120 counts per 
minute. 

“The characters MF or MB set either 
music foreground or music background 
as we were discussing before. 

“The characters MN, ML, or MS set 
the note type; normal, legato (full 
length), or staccato (3/4 length). The 
default note type is normal, or 7/ 8th 
of the length value. 

“An ‘X’ character, followed by a 
string name, executes the string. The 
contents of the specified string is played 
just as if it were ‘in line’ in the main 
string. 

“The ‘V’ character may be used to 
set the volume of the song. A SOUND 
ON must have been executed sometime 
before. The ‘V’ is followed by a value 
of zero through 15, signifying a low to 
high volume.” 

Hearing Voices 

“Now here’s a neat part: In the 1000, 
you can PLRY one, two, or three voices 
simultaneously. A SOUND ON must have 
been executed prior to the PLRY. For 
multiple voices, set music background 
by NB and then execute a PLRY of two 
or three strings: PLRY R$,B$ plays two 
voices, while PLRY R$,B$,C$ plays 
three voices.” 
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Changes your Model 100 into a totally different 
computer with capability you never thought possible 



Infoworld 
rated Lucid’s 
performance 
“excellent” 


on Snap-In™ ROM 


PCSG says “Satisfaction Guaranteed 
or your money back within 30 days!” 


LUCID® Is here now. It is on a ROM car- 
tridge that snaps into the compartment on 
the back of your Model 100. It takes no 
memory to load and no memory for operat- 
ing overhead. That means you have the full 
29.6k bytes free to store your data. 

First, LUCID® is memory conserving. It 
will let you build a large spreadsheet -255 
row by 126 column capacity. You build huge 
spreadsheets in your Model 100’s RAM that 
could consume 80 to 100K on a desktop 
computer. 

Secondly, LUCID® is fast. LUCID® is so 
rapid, a 36 column corporate financial 
statement took less than 4 seconds to 
calculate 

Thirdly, LUCID® has features you won’t 
find in most other spreadsheets. For ex- 
ample, when you type a label (text) it will 
cross column boundaries; in other words 
when you type a label or title it will appear 
as you type it irrespective of column or 
width. LUCID® also allows you to set col- 
umn widths individually, and of course 
LUCID® has insert row and insert columns, 
as well as other standard features. LUCID® 
even lets your formulas refer to cells in 
other spreadsheet files. 

Further, LUCID® has what no other 
spreadsheet has: Cut, Copy, and Paste. It 
uses the same keys as Cut and Paste in 
TEXT, but here’s the difference: it takes all 
the formulas with it when you paste and 
they all automatically recalculate with the 
entire sheet. 

And here is what is really amazing. You 
can copy or cut from one spreadsheet and 
paste into another spreadsheet or even a 
TEXT file. 

LUCID®supports all BASIC math func- 
tions as well as Log, sine, cosine, tangent, 
exponentiation and other sophisticated 
math functions. 

LUCID® has so many features that you 
will say “this is what I need in a spread- 
sheet”, such as automatic prompting of an 
incorrectly typed-in formula showing just 
where the mistake was made. 


LUCID® has expanded “go to” functions 
that remember and produce a windowing 
capability. 

But perhaps most remarkable is that 
LUCID® is not only a spreadsheet but a 
program generator as well. First, LUCID® 
lets you protect all cells against entry or 
change, and then unprotect just the cells 
you want for someone else to use as 
input fields. 

LUCID® will not only process values, but 
text input as well so that the facts other than 
numbers can be responded to. LUCID® has 
the ability for you to refer in a formula to 
cells containing words. This feature com- 
bines with the capacity of doing “if then” 
statements that work by doing table look- 
ups against even massive X/Y charts of text 
or numerical information. You can produce 
a program that responds to inputs with no 
programming knowledge whatsoever. 

You can prepare a report section in your 
spreadsheet with instructions to your user 
for printout, and they can produce a person- 
alized printout that responds to their input. 
All your formulas and tables that did the 
calculations and provided the facts are in- 
visible to that user. LUCID® is useful for 
doctors for patient questionnaires, trouble- 
shooting technicians, purchase clerks, 
people doing job quotes, stores for custom- 
er workups, insurance agents and anybody 
who needs to process specific facts and 
numbers to produce a report based on 
those responses. 

LUCID® comes with a manual that ex- 
plains not only the characteristics of 
LUCID®, but will train you how to use a 
spreadsheet even if you have never seen 
one before. You are shown how to do 
budgets, forecasts, breakeven analysis 
amortizations and many other types 
of personal and business reports and 
calculations. 

User friendly is such an over-used term in 
this industry, but a typical comment has 
been “I have never seen a spreadsheet that 
does so much, and yet LUCID® is so much 


easier and faster to use.” 

LUCID® is a result of a most exhaustive 
developmental effort in which PCSG’s 
objective was to develop a spreadsheet 
that was better than the state-of-the-art. We 
are so pleased because LUCID® provides 
for the Model 100 spreadsheet capability 
you cannot equal on a desktop computer. 

LUCID® is, in our opinion and that of 
those who have examined it, a break- 
through. We sell it on a 30 day trial. If you 
are not completely satisfied, return it within 
30 days for a full refund. Priced at $149.95, 
on snap-in ROM. MasterCard, Visa 
or COD. 

© PCSG 1984 
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Business decisions 
are seldom black and white. 


Open Access is the business 
software program that offers all the 
options needed for those tough 
business decisions. It’s the 
sophisticated business program 
for the experienced user, for the 
decision maker that needs more 
than just a spreadsheet, needs, 
in fact, the expandibility and 
performance that only Open 
Access can provide. 

Our “Show and Tell” diskette can 
show you how it works, can show 
you how the more you ask of 
it the more it can respond. It 
will demonstrate the excellent 
graphics, show you the convenient 
windowing technique and the 
powerful word processing module 
and explain the variety of uses in 
the communications program. 
There's a Search button to speed 
up data retrieval and even a Help 
button to give on-screen assistance 
at a variety of levels. And because 
of the virtual memory design, 

Open Access can be used in a 
networking environment where 
multiple users need to share 
common data concurrently. Talk 
about a staff keeping in touch! 

And, with information 


management, word processing, 
time management and a 
spreadsheet that allows open 
channels between models, Open 
Access is a business program that 
really can provide instant access to 
what is needed to make the right 
business decisions — the first time. 


■ Information Management 

A true relational data-base, not just a 
search function in a spreadsheet; “Must 
Match" feature; query language; form 
query; mailer capability; report 
generator. 

■ Spreadsheet 

Goal seeking; virtual memory; 
typological recalculation; channel links; 
explicit consolidation. 

■ Communications 

Serial cable, acoustic or intelligent 
modems of operation; auto dialing; 
log file. 

■ Graphics 

Full color or black & white; text labels; 
carousel slide show; color, texture, 
palette alterations; rotate and tilt 
operations on 3D graphs. 

■ Word Processing 

Block margining; justification; two-file 
viewing; cursor movements; printer 
attributes (boldface, italic, etc.). 

■ Time Management 

Automatic appointment; scratchpad 
calendar; rotary phone and address file; 
search command. 


Suggested Retail Price $695 

Available on: 

Tandy 1000, 1200, 2000 
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By this time the listeners were 
groaning. “I know, there’s a lot to 
remember, but just try a few strings 
when you get home. It’s fairly easy to 
play some fancy songs. 

“Just a few more notes: The numeric 
values in the commands above may also 
be changed to variables by using an 
equal sign, the variable name, and a 
semicolon. If variable ‘K’ is 4, for 
example, 0=l< will set the octave to 
octave four. The equal sign and semi- 
colon delimit the variable name to 
differentiate it from a legitimate PLRV 
command. 

“Another trick: This form of PLRY(h) 
returns the number of notes currently 
in the music buffer, or zero if the 
program is in the foreground mode. It’s 
used to test how close to the end of 
a song the program is or to test the 
point at which to add another voice. 
The format of this function is: 

TEST=PLRY(0) 

TEST can be any numeric variable 
and (0) is a dummy variable.” 

Tandy Sounds — More Than PLAY 

Dan put down the sheet and looked 
at the audience. “All in all, the PLRY 
command is great. It’s a far cry from 
what we could do on a Model I back 
in 78. Still, would you believe that you 
can do a whole lot more in BASIC? I’ll 
show you what I mean.” Dan loaded 
another program and started it. The 
1000 sounded a gunshot, made a sound 
like a falling bomb with an explosion 
at the end, gave a wolf whistle, and then 
played a piece that sounded like a 
harpsichord. There was a murmur of 
interest among the audience. 

“You must need a music board to 
do that,” somebody said. 

“No, not at all. Everything you heard 
was done in BASIC. I’ll show you how, 
but first you’ve got to suffer through 
some hardware descriptions.” There 
were more groans from the audience. 

“I’ll make it as painless as possible, 
I promise,” Dan declared. 

“Tell us about using Tandy equipment 
as boat anchors,” came a belligerent 
shout from the Apple goons. This time, 
both of Dan’s eyelids twitched, and it 
took him a little longer to recover, but 
he went on. 

“In researching sound generation on 
the 1000, I knew that the Tandy 1000 
emulated the PCy'r. That was helpful, 
because there just wasn’t any technical 
information coming out of Fort Worth 
about the 1000, although a technical 
manual is listed in the computer 
catalog.” 


The Complex Sound Generator Chip 

“The PCjr uses a Texas Instruments 
SN76496N complex sound generator 
chip. Sure enough, when I opened up 
the 1000, there was the same chip. The 
next problem was getting a spec on the 
496N. There’s a pretty good spec, 
believe it or not, in the IBM PCjr 
Technical Manual , but the manual costs 
$60. I also wanted to get the original 
spec, though, because publication 
departments have a way of mixing up 
the facts. I finally located a copy of a 
copy — the spec is hard to get from 
TI, but try them first. I’d also recom- 
mend getting their spec on the 
SN76489N, another sound generator 
chip. It has some good examples of 
various types of sound generation — 
bird calls, jets, and so forth. 

“Anyway, let me describe the 496N 
to you, since you’ll need to know about 
it to make some neat sounds. It has 
four channels of sound, three that 
produce square waves and one that 
produces white noise. Everybody know 
what white noise is?” Heads shook no. 

“White noise sounds like an AM 
radio tuned between stations. It’s a 
hissing sound that actually is made up 
of many random frequencies at the 
same time. White noise is present in 
gunshots, jet engine noise, crowd 
sounds, and even in the human voice. 

“The noise channel can be pro- 
grammed for several different types of 


white noise. I’ll show you how later. 
The other three channels are the main 
tone channels. They can be programmed 
to produce a a square wave tone from 
one that’s too low to hear to one that’s 
too high to hear. Both extremes can’t 
be passed through the 1000, by the way 
— it’s really not a high-fidelity audio 
system. 

“Not only can you get different 
pitches for the channels, you can 
program different volumes. Actually, 
TI uses an attenuator for the channels. 
That’s just a fancy way of saying that 
the sounds are reduced in volume. The 
volume for any channel can vary in 
about 15 steps from loud to no sound, 
and that includes the white noise 
channel too. 

“Once a tone or white noise and a 
volume are programmed into the chip, 
they’ll remain until a new tone is 
defined. The chip will sit there, cranking 
out the tones and you’re free to do other 
things in BASIC, assembly language or 
whatever. 

“All channels feed into a common 
output channel, so you can get a 
mixture of three different tones at three 
different volumes and white noise at a 
preset volume. 

“All well and good, you say, but how 
do you program this critter? I have a 
simplified diagram here.” He passed out 
another sheet of paper (see Figure 4). 


Figure 4. SN76496N 
Complex Sound Generator 
Interface 



AUDIO 

OUT 

OR 

MONITOR 


PCM 17 


September 1985 



Ill 



LECCnnUTER 


INTEGRATED WORD PROCESSING 
AND COMMUNICATIONS SOFTWARE 


"Meet me at PCMfest 
and I’ll show you 
all the bells 
and whistles.” 

Harry Brawley 

SIGEA SYSTEMS, INC. 

19 Pelham Road, Weston, MA 02193 (61 7) 647-1099 



“The 496N is controlled by something 
called a PPI, a peripheral interface 
adapter. There’s no magic in this — it’s 
just three eight-bit memory cells that 
hold control bits. Two of the bits 
control the routing of the sound. To 
route the output of the 496N to the 
audio output, you must execute an OUT 
&H61 , &H6C. 

“Note: If sound and graphics are to 
be run together, use EH68 in place of 
the EH6C value. 

“The OUT command, by the way, is 
just BASIC’s means for addressing an 
input/ output channel. It happens that 
this input/ output channel is dedicated 
to the control bits shown in the figure. 
This addresses the PPI at address &H61 
and routes the output of the 496N to 
the audio channel. 

“Now you have the sound routed, but 
what about programming the channels? 
Well, there’s another address involved, 
the address of the SN76496N chip. It’s 
address is &HC0. Programming the 
496N means doing another OUT, but this 
time with an address of &HC0: 

OUT &HC0 , XXX 

SN76496N Registers 

“Now comes the more difficult part. 
There are eight registers within the 
SN76496N. They are” (Dan started 
writing on the board): 


Register 0 Tone 1 Frequency 
Register 1 Tone 1 Attenuation 
(Volume) 

Register 2 Tone 2 Frequency 
Register 3 Tone 2 Attenuation 
(Volume) 

Register 4 Tone 3 Frequency 
Register 5 Tone 3 Attenuation 
(Volume) 

Register 6 Noise Control 

Register 7 Noise Attenuation (Volume) 

“To set the tone frequency, you must 
send 10 bits of data to a frequency 
register. The ten bits range from one 
(0000000001) to 1023 (1 1 1 1 1 1 1 1 1 1) and 
set a count value. This count value is 
counted down to make up the square 
wave frequency. The larger the value, 
the lower the frequency , by the way. 
The actual frequency sounded, for those 
of you who aren’t afraid of formulas 
is: 

f=3.579E6/ (32*COUNT) 

“The 3.579 megaHertz value is the 
clock frequency of the 496N chip. It’s 
the same frequency as a television color 
burst crystal, a commonly used clock 
frequency for these types of things. The 
lowest frequency that can be set is 109 
Hertz (COUNT=1023).” 

“Here, I’ve drawn a chart to show 
you how the frequency changes with the 


COUNT.” Dan passed out still another 
sheet (Figure 5). 

“Follow this closely, now, folks,” 
Dan warned. 

“ To program the frequency, do this: 

1) Get the COUNT value from the 
formula or chart. 

2) Divide the COUNT value by 16 
and save the quotient as V ALUE2. 

3) Multiply VALUE2 by 16 and 
subtract this from COUNT. 

The result is VALUE 1. 

4) Do an OUT &HC0,128+REG*16+ 
VflLUEl. 

5) Do an OUT &HC0, VALUE2. 

“The REG value is the register 

number for the tone — zero, two or 
four. Look, here’s an example. I want 
a frequency of 800 Hertz. From the 
formula: 

800=3. 579E6/(32*COUNT) 

COUNT=3.579E6/(32*800)= 

3579000/25600=139.8 

“I’ll round off to 140. Dividing 140 
by 16 gives a quotient of 140/ 16=8 for 
VALUE2. Multiplying VALUE2 by 16 
and subtracting from COUNT is 140— 
8*16=140-128=12 for VALUE 1. The 
□UTs are: 

□UT &HC0, 128+0*16+12 

OUT &HC0 , 8 

“The actual format of the frequency 
bytes is shown in this sheet, for those 
of you that are into binary. ” Dan passed 
out another sheet. “However, if you 
stick with the procedure above, you’ll 
be able to set the frequency with a little 
bit of work. This sheet (Figure 6) also 
shows the formats for the other registers, 
by the way.” 


“Now you have the tone frequency 
set. At this point the you may or may 
not have sound, depending upon what 
is in the attenuator register for the tone 
channel. To set the attenuator, do this 
□UT: 

OUT &HC0 , 128+REG*16+ATTEN 

“In this out, REG is one, three, or 
five for the tone channels and ATTEN 
is an attenuator value from zero 
through 15. Remember, the greater the 
attenuator value, the less volume with 
the sound. To set the loudest sound on 
channel zero, do: 

□UT &HC0, 128+0*16+0 

(no attentuation) 



It’s the Holmes Engineering/PCSG “chipmunk” 



Uses the main menu concept. You see the 
disk directory instantly, arranged on your 
M-100 screen like your main menu. Just move 
the widebar cursor and transfer files with a 
function key. You can run a file directly from 
the diskette with the ENTER key. Uses 3 Vi 
microfloppy diskettes that have a rigid plastic 
casing and a metal core. They’re tough and 
nonflexible. You can carry several in a shirt 
pocket without damage. There’s 358K on a 
diskette. Ten of these in your briefcase and 
you’ve got Vh megabytes. 

Drive weighs only three lbs. and it works 
directly from the 1 10 outlet and recharges at the 
same time. It recharges in six hours with 
thousands of pages transferred between 
charges. It’s compact, with dimensions of 2 ] A" 
x 5 V 2 x 7.5"; and fits easily into your briefcase 
along with your Model 100 or 200. 

Machine code programs, BASIC pro- 
grams, Lucid files and documents all are saved 
and retrieved with no protocol- instantly, ready 
to run. 

In a special association, Holmes En- 
gineering and PCSG have worked together 
combining the hardware knowledge of Holmes 
and the software expertise of PCSG. The re- 
sult is a product that can only be regarded as 
excellent. 


You see the disk directory 
instantly; works just like the 
main menu 


Here is what is really exciting. The port- 
able disk drive has Random Access. Included 
as part of the operating system in the drive 
(ROM) is a very powerful disk BASIC. 

This means that you can have BASIC 
programs that will access the diskette and read 
and write records directly on the diskette. 

Just imagine yourself with this kind of 
capability. 


Database- The portable disk drive stores 
your mailing list, inventory items, part #s and 
descriptions or any other data that you need 
to recall. 


358K on a diskette 


Invoice ( purchase order)- At the touch of 
a button you can print out your sequentially 
numbered, professionally done invoices. This 
is truly professional invoicing capability. 

Purchase orders are just as easy. 

Sort - This excellent utility allows you 
rapid sorting of any records you have compiled. 
You can write the newly sorted list back in the 
same file on the diskette or to a new file. 

Telecom interface- If you are a user that 
likes to access other computers or databases 
(for example CompuServe) by telephone then 
this powerful facility alone is worth the price of 
the disk drive . You can automatically download 
and upload information onto the diskette. 

Calendar - Everyone who has seen this 
program has said, “This is the first calendar/ 



diary/scheduler on any computer anywhere that 
I can use. It is so functional.” 

The calendar program is usable for two 
reasons, first it is designed correctly, and 
second you have the memory (358K) on the 
diskette to log and access a tremendous amount 
of notes over a long period of time. 

Personal Finance Manager - This 
wonderful program truly lets you keep track of 
your finances. 

All your records are kept on the diskette. 
Bank accounts (checking and savings) and 
charge accounts such as MasterCard and Visa. 

We at PCSG believe we have the ultimate 
Model 100 system, the Portable Disk Drive 
plus the Lucid spreadsheet on snap-in ROM, 
Write ROM word processing and the new 64K 
RAM expansion now available from PCSG. 

We want you to find out for yourself at no 
risk. If you aren’t totally satisfied within 30 
days, simply return the disk drive for a full 
refund. Priced at $599.95, including the soft- 
ware library. MasterCard, Visa, COD. 


RDRTABLE 

COMPUTER 

. . m ■■■ m ■ 

SUPPORT 

ORQJP 

l-214'351-0564 

11035 Harry Hines Blvd., #207 
Dallas, Texas 75229 


PCSG offers a 30 -day/money-back trial! 


Figure 6. SN76496N Byte Formats 


FREQUENCY BYTES 


ALWAYS A 0 

(BIT 6 IS “DON’T CARE”) 



NOTE: SECOND BYTE IS OPTIONAL. IF NOT SENT, 

UPPER SIX BITS REMAIN AT LAST SETTING 

ATTENATOR (FOR FREQUENCY OR NOISE) BYTE 

7 6.5.4 3.2 1 0 ATTENUATION VALUE 1-15 

1-MINIMUM 15=OFF 

0 0 1 = TONE 1 ATTENUATION 

0 1 1 = TONE 2 ATTENUATION 

10 1 = TONE 3 ATTENUATION 

111= NOISE ATTENUATION 



NOISE BYTE 


1 

— 1— I 

1 ^ 0 

1 1 

0 

FB 

SHIFT 


ALWAYS 
THESE j 

BITS / 

“DON'T 
CARE” 


FB SHIFT MEANING 
00 0 PERIODIC NOISE, N/512 

0 0 1 PERIODIC NOISE, N/1024 

0 1 0 PERIODIC NOISE, N/2048 

0 1 1 PERIODIC NOISE. TONE 3 

1 0 0 WHITE NOISE, N/512 

1 0 1 WHITE NOISE, N/1024 

1 1 0 WHITE NOISE, N/2048 

1 1 1 WHITE NOISE, TONE 3 


“After you’ve done all of this, you 
should hear a sound. As a practice, try 
this program. It allows you to set tones 
on any channel with any loudness. You 
can set from one to three tones at once, 
too. (See Listing 2). 

“Now you know how to set the tones 
and volume. Any questions?” 

“Dan, how often can you change the 
settings?” asked one of the audience. 


“The hardware allows you to update 
about every 8.9 microseconds, or about 
1 12,400 times per second for each OUT. 
That’s faster than you can execute each 
BASIC OUT, although you could go that 
fast in assembly language. That’s 
probably more than enough when you 
consider that musical notes take on the 
order of tenths of seconds on up! 
Anytime you want to change the tones, 


just execute another set of OUTs for the 
frequency and attenuation.” 

“Question! Why are Tandy 1000 
owners such wimps?” shouted a 6-foot 
2-inch, 300-pound Apple nerd. Dan’s 
eyelids twitched and his right hand 
made an involuntary chopping gesture, 
but he continued. 

“Now, on to the noise channel. The 
attenuation for the noise channel works 
the same way as a tone channel: 

□UT &HC0 , 128+7*16+RTTEN 

“ATTEN is a value from 1 to 15. 

“The noise generation byte is different, 
though. It’s on the last sheet I gave you 
(Figure 6). The FB bit sets either 
“periodic” (FB=0) or ‘white’ noise 
(FB=1). White noise, we’ve seen, but 
periodic noise is different. It’s a tone. 
The shift bits alter the noise. Setting 
the bits to 11 (3 decimal) routes the 
output of tone channel three to control 
the noise. The best way I can illustrate 
what happens is to let you listen. This 
program will let you input different 
combinations for the noise channel.” 
Dan ran another program. (See Listing 
3 .) 

“Note that the OUT for the noise 
channel is: 

□UT &HC0 , 128+6*16+FB*4+SHIFT 

“FB is 0 or 1 and SHIFT is 0, 1, 
2, or 3. 

“Like the tone channels, the noise 
channel continuously outputs noise 
until another set of control bytes are 
sent by an OUT. To turn off the noise, 
send a 15 to the noise attenuator 
register: 

□UT &HC0, 128+7*16+15 

Beautiful Noise 

“Ready to make some noises?” Dan 
passed out a raft of additional listings 
and figures. “Let’s try a gunshot first. 
A gunshot is white noise that fades away 
rapidly. The program here (Listing 4) 
sets up the noise channel for white noise 
and then rapidly attenuates the noise 
by doing a quick series of attenuation 
outputs from 0 through 15. 

“By using random noise lengths and 
increasing and then diminishing noise 
(Listing 5), you can simulate surf on 
an oceanside. 

“Here’s a bird song program (Listing 
6) that uses a random number of chirps 
and a random time between chirps. My 
wife heard it in another part of the 
house and thought that it was a real 
bird!” 


(Listing 2) 



100 

1 Output three tones with 

at tenua t i on 

101 

CL'S 



1 10 

OUT 

&H61 , &H6C 


1 20 

INPUT "Count, Attenuation 

: ”, COUNT 1 .ATTEN1 

1 30 

INPUT "Count, Attenuation 

: ” .COUNT2 , ATTEN2 

1 40 

INPUT "Count , Attenuation 

: " .COUNT3 , ATTEN3 

150 

OUT 

6.HC0 , &H80+( COUNT 1 AND 

&HF) 

160 

OUT 

&HC0 , I NT ( COUNT 1 / 16) 


1 70 

OUT 

&HC0 , &H90+ATTEN 1 


180 

OUT 

£.HCO,S.HAO+(COUNT2 AND 

& HF ) 

l 90 

OUT 

& HC0 , INT(COUNT2/16) 


200 

OUT 

6HC0 , &HB0+ATTEN2 


2 10 

OUT 

&HC0 , 6,HCO+(COUNT3 AND 

&HF ) 

220 

OUT 

& H C 0 , I NT (COUNT 3/ 1 6) 


230 

OUT 

6 H CO , S.HD0 + ATTEN3 


240 

GOTO 

120 
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Envelope Generation 

“And now to show you some real 
power! You’re probably wondering 
how I got that harpsichord sound. The 
secret of this is ‘envelope’ generation. 
Let me tell you what I mean. 

“The envelope of a musical or other 
sound defines the characteristics of the 
sound. A piano note fades away far less 
rapidly than a drum beat (see Figure 
7). Synthesizers use envelope generation 
and define the envelope by ‘ADSR’ — 
attack, decay, sustain, and release. (See 
Figure 8.) You can generate your own 
envelope by changing the attenuation 
of a tone.” 

“The program shows three types of 
notes. The First is a harpsichord-like 
note — its envelope looks like a ramp 
down. The second note is a ramp up 

— you’ll never hear that in a musical 
instrument! It’s like a tape recorder 
played in reverse. The third is a vibrato 

— load, soft, loud, soft. You can make 
up your own at will.” (See Listing 7 
and Figure 9.) 

“Get off the stage, turkey ...” came 
a voice from the Apple corps. 

Dan turned toward the heckler and 
shouted, “And now for one final thing 

So saying, Dan did a double forward 
flip and landed directly in front of the 
group of Apple hecklers, crouched in 
a karate stance. Two of the hecklers 
immediately went into their own karate 
stance and brought out vicious-looking 
weapons fashioned from Apple moth- 
erboards, obviously pirated versions 
from Taiwan. In a matter of seconds 

— and several well-placed karate chops 

— it was all over. The 300 pounder went 
First. The hecklers slunk off to the 
remanants of their meeting, nursing 
their bruised bodies. 

“Congratulations, Dan. You really 
cleaned them up,” I said, rushing up. 

Dan got a reflective look in his eyes. 
“What is the sound of one Tandy 1000 
crashing?” he asked, gave a short bow, 
and walked off to a standing ovation. 

□ 


(Listing 3) 


noise channel, maximum volume 


100 ' Output 

110 CLS 

1 20 OUT &>H6 1 , 6.H6C 

130 INPUT " F B ( 0 or 1 ) , S H I FT ( 0 - 3 ) : ",FB, SHIFT 

140 OUT &HC0 , &HE0+FB*4+ SHIFT 
150 OUT &HC0.&HF1 
160 GOTO 130 


(Listing 4) 



100 
i io 

1 Gunshot. Change } e 
CLS 

ngth 

120 

OUT 

&H6 1 , &H6C 


130 

OUT 

&HC0 , &HE0 + l * 4 + 0 


1 40 

FOR 

1-1 TO 15 


150 

OUT 

6.HC0 , &HF0+I 


160 

FOR 

J-l TO 12: NEXT 

J 

170 

NEXT 

I 



J-l TO VALUE. 


(Listing 5) 

100 ' Surf 

110 CLS 

120 OUT &H6 1 , & H 6 C 

130 OUT 6 HC0 , &HE0 +1*4+0 

140 FOR 1*10 TO 1 STEP -1 

150 OUT &HC0 , &HF0+ I 

160 FOR J-l TO 500*RND( 1 ) : 

170 NEXT I 

180 FOR 1*1 TO 10 

190 OUT &HC0 , 6.HF0 + I 

200 FOR J-l TO 5 00 * RN D ( 1 ) : 

210 NEXT I 

220 FOR J*1 TO 1000* RND ( 1 ) 
230 GOTO 140 


NEXT J 


NEXT J 


NEXT J 


(Listing 6) 
100 
1 10 
120 
1 30 
140 


' Bird song 
OUT &H6 1 , 6H6C 
FOR J-l TO 30*RND(1) 

FOR 1-1 TO 15 
OUT &HC0 , ( 128+1 ) 

150 OUT 6HC0.1 
1 60 NEXT I 
170 NEXT J 

180 OUT &HC0 , &H9F : FOR K=1 TO 1000*RND(1): NEXT K: OUT 5.HC0, 

190 GOTO 120 


&H9 1 


September 1985 


pcm 23 


(Listing 7) 

}?° ’ ° utput bel1 sound > one channel 

110 CLS 

120 OUT & H 6 1 , & H 6 C 

130 INPUT "Count, duration: " .COUNT, K 

140 OUT S.HC0 , &H80+( COUNT AND &HF) 

150 OUT & HCO , I NT ( COUNT/ 1 6 ) 

160 FOR 1=1 TO 15 
170 OUT &HC0 , &H90+I 
180 FOR J»1 TO K: NEXT J 

190 NEXT I 
200 GOTO 130 

210 ’ Output lleb sound, one channel 

220 CLS 

230 OUT &H61,&H6C 

240 INPUT "Count ,duratlon : ", COUNT, K 

250 OUT &HC0 , &H80+ ( COUNT AND &HF) 

260 OUT &HC0 , INT(COUNT/ 16) 

270 FOR 1 = 15 TO 1 STEP -1 

280 OUT &HC0.6.H90 + I 

290 FOR J«1 TO K: NEXT J 

300 NEXT I 

310 OUT 4HC0.5.H9F 

320 GOTO 240 

330 ' Output vibrato, one channel 

340 CLS 

350 OUT &H61.&H6C 

360 INPUT " Co un t , d u r a t i on : ", COUNT, K 

370 OUT &HC0 , &H80+( COUNT AND &HF) 

380 OUT &HC0 , I NT( COUNT/ 1 6 ) 

390 FOR 1 = 1 TO 5 
400 OUT &HC0 , 6H90+I 
410 FOR J-l TO K: NEXT J 

420 NEXT I 

430 FOR 1=5 TO 1 STEP -1 
440 OUT &HC0 , &H90+I 
450 FOR J=1 TO K: NEXT J 

460 NEXT I 
470 FOR 1=1 TO 5 
480 OUT &HC0 , & H90+I 
490 FOR J=1 TO K: NEXT J 

500 NEXT I 

510 FOR 1=5 TO 1 STEP -1 
520 OUT &HC0 , & H90 + I 
530 FOR J=1 TO K: NEXT J 

540 NEXT I 
5 50 OUT &HC0 , & H9F 
560 GOTO 360 


Figure 7. Envelops of 
Musical Sounds 

DRUM RESPONSE PIANO RESPONSE 
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Add Search and Replace Power 
to Your Portable’s 
Text-Handling Functions 

By Richard Ramella 


V ladimir Nabokov, who is best 
known for his novel Lolita , once 
wrote a book whose main char- 
acter is named Cincinnatus. That name 
is a tangle of fingers to type. 

Nabokov made his writing job easier 
by abbreviating the name as C. in the 
manuscript, while instructing the type- 
setter to spell it out in every occurrence. 

I know this is so because I saw the 
manuscript of Invitation to a Beheading 
at the Library of Congress. 

Many word processing systems in- 
clude a capability that does the same 
job for the user that the typesetter did 
for Nabokov. 

It’s called “search and replace.” 

The portable computer has a string 
search capability while in the text mode, 
but doesn’t automatically replace 
anything. It’s up to the user to tap 
numerous key combinations, erase and 
retype. This is an onerous task. 

With my brief BASIC listing called 
Search-and-Replace, your portable 
now is able to search a document and 
replace one string of characters with 


(Richard Ramella is a former news- 
paper editor who now works as a writer 
for a California hospital. He has 
published more than 200 computer 
programs.) 


another — true search-and-replace 
capability. 

I wrote this utility program when an 
editor asked that I change the name of 
a character in one of my books. An 
otherwise four-hour job took 20 min- 
utes, and I knew the computer was more 
precise in its search than I could have 
been. 

I’ve used Search-and- Replace in 
many ways. Every month I have the 
job of preparing for publication a list 
which contains a boring abundance of 
the characters Mr. and Mrs. In prep- 
aration I type qz instead of Mr. and 
Mrs. and run the text file through 
Search-and- Replace. I yawn once or 
twice and the work is complete. 

I’ve also used the program to correct 
misspelled names throughout a 
document. 

Let’s test the program. 

First, type the program into your 
computer and save it as a BASIC file. 
I suggest you also CSAVE it to tape. 

Create a text file named TEST. In it, 
type this sentence: It did not pass the 
test. 

Run Search-and- Replace. In answer 
to the prompt Name of file to 
search'? type “TEST” and ENTER. 

In answer to the prompt Sought 
string? type “did not” and press 
ENTER. 


Answer the prompt Replace 
string? by typing “did” and pressing 
ENTER. 

The work is automated from this 
point. When the change is made, the 
computer will beep 10 times and flash 
this screen message: FINISHED. 

Go to the text file named TEST. The 
words there should now read It did 
pass the test. The word did replaced 
did not. If the file had numerous 
occurrences of the characters did not, 
all would be replaced by the characters 
did. 

To avoid memory miscues, you 
should know just a bit about the 
internal workings of the program. It 
feeds characters out of the file and, with 
appropriate changes, sends them into 
a second text file called NEW. This isn’t 
evident because the old version is killed 
and the new one given the old one’s 
name after the work is done. What is 
meaningful is that the old file should 
not occupy more than half the available 
free bytes of the system. If it does, an 
OM (out of memory) error can occur 
when memory is filled. 

If you want to run very long files 
through Search-and- Replace, I suggest 
you send the new material to a cassette 
file. This method calls for simple 
program changes. To make them, just 
type these lines into the program: 
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180 OPEN "CflS: "+F FOR OUTPUT PS 
2 

230 CLOSE 1: CLOSE 2: PRINT 
"FINISHED" 

When using the program with these 
changes, position a fresh cassette tape 
in the tape recorder before running the 
program. Depress the Record- Play 
buttons together. On completion, the 
changes will be in a taped text file with 
the same name as the original file, and 
the original file will remain in the 
system. 

A Couple Caveats 

In text mode, the string search 
command will find any combination of 
upper- and lowercase characters spelling 
out a sought string. However, the 
program Search-and- Replace makes a 
literal search. If you tell it to seek out 
X-ray, it will do so while ignoring such 
variants as x-ray and X-Ray. 

Take care when seeking small words. 
For example, if you ask the program 
to replace rich with opulent, it would 
change the sentence Richard isn’t rich 
to Opulentard isn’t opulent. The way 
around this is to hit the spacebar before 
and after typing the brief word string 
you’re seeking. □ 



EXPAND THE TANDY 2000® 
TO 


OF DOS ADDRESSABLE RAM 

Includes RAMdisk Software at No Extra Cost ... 

Add 640K of External RAM Memory to TANDY 2000’s® 
256K of Internal RAM Memory for a total of 896K of DOS Ad- 
dressable RAM. 

* Uses only one (1) External Memory Card Slot 

* RAMdisk Software is included with the price. 


cost: 


$495.00 for a 640K bytes of External 
RAM Memory Board (Includes RAMdisk 
Software) 

Call about our Trade-in Exchange option 
if you already use Tandy’s 128K External 
Memory Board. 


for ordering 

and information call: 


(509) 627-5291 
Hours 9:00-5:00 PST 


. We accept Check, MO, Visa, Mastercard 
UcrmS. Add 7.3% sales tax in Wash. 
Add $3-shipping /handling, $5 foreign. 

TANDY 2000® IS A TRADEMARK OF TANDY CORPORATION 
RAMdisk is a Random^ccess-Memory based disk 


ENVI8ION DESIGNS 

1909 ORCHARD WAY • RICHLAND, WASHINGTON 99352 


MSDOS UTILITIES 
TANDY 100 0, 120 0, 2000 
IBM PC/XT/AT 

No Technical Knowledge Required !!! Easy to Use 

***** RAMDISK ***** | S 49 

RAMDISK - Use spare memory as a superfast disk to 
speed up applications. (You specify Ramdisk size). 
Appears to programs as a disk, but gives instant 
access^ Easy to install and use. 

ALPHA TOOL BOX 1 559 

ALPHABETIZED DIRECTORY DISPLAY - View 
Directory on 1 screen ( 5 columns, sorted. FastlV 

FIND FILE - Search all directories for file. 

DIRECTORY DTREE — Display all sub-directory 
names in an easily readable form. 

BACKMOD MODIFIED FILES - Quick, automatic 
backup of files. Backup in same format as original 
Perfect for Hard Disks. Also f or floppies. 

***** BETA TOOL BOX ***** | $59 

SINGLE KEY COMMAND — Define any text string 
(pr DOS Command) as a single keystroke. Press 
single kev to execute commands ! 

COUNT LINES - Superfast count of lines in a file. 

DUMP FILE IN HEX — Formatted dump of file in 
Hex/Ascii. Scroll Forward, Backward, Begin, End. 

CHANGE FILE ATTRIBUTES - Make files hidden 
readonly, archive, etc. Set or reset attributes. 

***** SERIAL PRINTERS ***** 1 $49 

Connect your Serial Printer to your RS232 port. Full 

handshaking. Easy commands. Complete instructions. 


Don’t miss the review of these ALPS utilities in the 
February, 1985 issue of 80-Micro (P.119). 

More ALPS Tools Available. Call or Write for ALPS 
catalog. Customer Support !!! 


ALPS 
23 Angus Road 
Warren, New Jersey 07060 
201-647-7230 
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By 

John Melski, M.D. 

P RINT. BPS is a program that 
prints standard ASCII text files. 

The program supports a full 
spectrum of font and format controls, 
including headers, footers and pagina- 
tion. It allows documents to be 
embedded within other documents. It 
provides for multiple copies and inspec- 
tion of embedded variables from 
standard data files. It also provides for 
input of inbedded variables from the 
keyboard at the time of printing. 

Also supported by PRINT.BftS is a 
feature not found in any commercial 
word processor — sequential 
renumbering of reference citations with 
automatic sorting of reference lists. This 
means that you can cut and paste your 
text and add and delete references 
without concern for the tedium of 
renumbering or sorting your references. 

The ability to conveniently handle 
references makes PRINT . BPS especially 
valuable to writers of published 
literature where sequential numbering 
and sorted listing of references are 

The initial inspiration for PRINT. BPS 
was Telecommuter — a word proces- 
sing and telecommunications package 
developed by Sigea Systems, Inc. 

PR I NT. BPS expands upon the print 
features of Telecommuter’s Text 
Editor. Since PRINT. BPS is written in 
BASIC, you can customize your printing 
tasks and completely interface your 
word processor with your printer. The 
program looks for embedded characters 
used by Telecommuter and control 
characters used by an EPSON FX-80 
printer. I will note where the code would 
have to be changed for another word 
processor and/or printer. 

(Dr. John Melski was affiliated with the 
Computer Medicine Laboratory of the 
Brigham / Beth Israel Medical Group in 
Boston for almost nine years where he 
worked with research databases Since 
1983, he has worked as a dermatologist 
for the Marshfield Clinic in Wisconsin 
and pursues microcomputing as an 
avocation.) j| 
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Embedded Commands 

Embedded commands allow you to 
control the margins and appearance of 
your printed text. Embedded com- 
mands appear in your text file, but they 
will not appear in your printed 
document. 

Each embedded command must be 
on a line by itself. A command consists 
of a period followed by two letters. 
Embedded commands are also known 
as “dot” commands. Some commands 
are followed by one or more additional 
items that are called “arguments.” 

You may put a comment after a 
command with no arguments, or, at 
most, a single argument. This is a good 
way to identify the purpose of a group 
of commands. 

Commands may be entered in upper- 
or lowercase. 

Here are some sample embedded 
commands: 

-lm 4 The first command is fol- 
lowed by this comment 

.sl< 3 

- ti 1, 3, c, CHAPTER ONE 

You will soon learn what these 
commands mean. Any guesses? 

Printing Files 

From MS-DOS you can run PRINT 
.BPS with the command BASIC PRINT. 
When prompted with “DOCUMENT,” 
enter ‘A’ to get a listing of the files on 
drive A, or ‘B’ for those on drive B. 

If you want to print any document 
showing the format commands, put the 
command . di at the very beginning of 
the file. Then print the file. The 
command .di disables the embedded 
commands, so they are printed along 
with the text. 

Margins 

Here are the margin commands: 

.lm n Set left margin to n. 

.rm n Set right margin to n. 

.tm n Set top margin to n. 

.bm n Set bottom margin to n. 

Margins are stored internally as n- 
1. You can set the default values for 
the margins in Line 230 of PR I NT. BAS. 
The hard upper-limit of margins will 
depend on the physical characteristics 
of your printer and the font you are 
using. 

Titles and Page Numbers 

Titles and page numbers use the same 


general format. The arguments specify 
the line number on which to print, the 
position relative to the margins (left 
justified, centered or right justified) and 
the text to be printed. 

Up to 10 different titles may be 
specified. Page numbers and titles will 
be printed on each page after they’ve 
been defined, unless you turn them off. 
Once defined, they may be turned on 
or off, individually or all together. 


.pg L,P,abcd 

Print the page 
numbers at line L, 
position P, pre- 
ceded by abed. 

. pn n 

Set the page 
number to n. If n is 
not given, printing 
of page numbers is 
toggled on/ off. 

. nn 

Don’t print page 
numbers. 

.nu 

Print page 
numbers. 

.ti n,L , P, ABCD 

Print title n at line 
L, Postion P, using 
ABCD. 

.nt 

Don’t print any 
titles. 

. nt n 

Don’t print title n. 

. ti 

Print all titles. 

. ti n 

Print title n. 


Illegally specified commands will be 
ignored. The defective command will 
be printed on your computer screen. 

The space between the command and 
the argument is optional. It does 
improve readability. 

PR I NT. BAS assumes that 32767 is the 
largest page number you will ever need. 
If a larger number is needed, you can 
sacrifice speed of execution by remov- 
ing the DEFINT statement in Line 10. 

Line Spacing and Text Positioning 

Here are the commands that control 
the spacing and positioning of text on 
a page: 

.spn Set spacing to n lines. 

(Default = 1, maximum 
= 3) 

- sl< n Skip n lines at this 

position in the text. 

. v/ 1 n Vertical tab to line n. 

- ce Center the next line. 

-ce n Center the next n lines. 

- r j Right justify text. 

- np Start a new page with the 

next line. 

- np n Start a new page if there 

are not n lines remaining. 


-pz 

Pause after 
feed. 

Indent next 

each page 

. in n 

line by n 

. in -n 

spaces. 

Outdent next 

line by n 


spaces. 



PR I NT. BAS supports true vertical 
tabs. The printer control sequences for 
these tabs may have to be changed for 
your printer in lines 3520, 3530, 7040 
and 7050. Note that two separate 
vertical tab channels are used. If your 
printer does not have true vertical tabs 
or multiple channels, then set the line 
feed flag (LF) to 1 in Line 250. This 
can also be done with an . 1 f command. 

File Include 

You can direct PRINT. BAS to print 
a disk file as part of the current 
document. 

. f i filename Print the entire file 
“filename” at this 
position in the 
document. 

The File Include command does not 
force a page at the beginning or the 
end of the included file. Page numbers 
are maintained. 

The File Include command allows the 
creation of a master file that contains 
format controls and directs the printing 
of subsections. For example: 

. lm 5 PRINT CONTROL FILE 

. rm 70 (set margins for entire 
document ) 

. tm 6 
.bm 60 

. ti 1, 3, R, PROPOSAL 

. ti 2, 3, L, March 3, 1985 

.fi BACKGROUND 

.fi RATIONAL 

.fi METHODS 

.fi TIME TABLE 

The File Include command allows 
you to organize a group of related 
documents rather than create a single 
large document. 

Printer Setup 

You may send setup codes to your 
printer with the “quote” embedded 
command. 

. qu abed Send ‘abed’ to the 

printer. 

This is useful for sending special 
control codes to the printer without the 
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need to modify PRINT. BRS. Note that 
the line is not treated as text. 

Printer Control 

PRINT. BRS allows you to place 
printer control characters anywhere in 
your text. By embedding these special 
characters, you can enable and disable 
up to three different print fonts. 

PR I NT. BRS assumes that ASCII 252, 
253 and 254 are printer control char- 
acters for emphasize, underline and 
italicize respectively. These characters, 
along with corresponding control 
sequences for an Epson printer, are set 
in lines 40, 50 and 60. You may want 
to change these characters and/or 
corresponding control sequences to suit 
your particular word processor and/or 
printer. 

The program also supports non- 
breaking spaces. Non-breaking spaces 
are used when you want a group of 
words to appear together on the same 
line, such as Louis IV. PRINT. BRS 
assumes that ASCII 251 is the non- 
breaking space, but this can be changed 
in Line 30. 

Embedded Variables 

PR I NT. BRS allows you to embed the 
names of variables in your text. The 
values of the variables are determined 
at the time of printing. A special 
character is used to delimit the names 
of the variables. ASCII 222 is the special 
character that is assumed, but this can 
be changed in Line 30. 

For example, a variable named 
“ADDRESS” could be embedded in 
your text using the special delimiting 
character. If a data file is not specified, 
or ADDRESS is not defined in the data 
file, then PR I NT. BRS will request the 
value for ADDRESS from the key- 
board at the time of printing. The value 
will be inserted in the exact location 
where ADDRESS appeared. 

The variable named “DATE” will 
cause the current date to be inserted. 
Date format is set in Line 900. 

Embedded variables that are 
numbers or lists of numbers are 
assumed to be reference citations. As 
noted, reference citations are renum- 
bered sequentially at the time of 
printing. 

Reference citations are superscripted 
with the control sequences set in Line 
70. If your printer does not have 
superscription, set these sequences to 
null string. 


Printing References 

The . p r command causes references 
to be printed in the order in which they 
were cited in your document. 

-p r PR I NT. BRS expects your refer- 
ences to follow this command. 

The lines following a .pr command 
are assumed to be either in the form 
of references or embedded commands. 
A reference begins with a number and 
ends with a carriage return. Any line 
that is not of this form and is not an 
embedded command will cause the .pr 
command to terminate. 


Except for .fi and .pr, embedded 
commands will be executed when the 
reference immediately preceding the 
command is printed. The . f i command 
is executed immediately allowing you 
to look up references in separate files. 
A second appearance of the .pr 
command will cause the first .pr 
command to terminate. 

Sometimes it is useful to see the 
internal citation number in the printed 
document: 

. prtt If the 8 character appears 
within a .pr command, the 
internal citation number will be 


The more software you own 







’singDOSurgoingbacktotfre 


UJd 


the more you need Magic Menu ~ 


Magic Menu is a 
sophisticated menu system 
which provides ftill control 
of an IBM XT, PC, AT, or 
PC compatible computer. 
Easy to use menus allow 
the selection and execution 
of over 1000 applications 
programs without dealing 
with DOS or consulting a 
manual. 

Magic Menu interfaces 
between the user and DOS 
(version 2.0 or later) 
allowing any application to 


be performed with just a 
few keystrokes. Sequence 
screens allow automatic 
execution of a series of 
menu entries, while 
password security is 
available for all 
applications. 

Magic Menu can be made 
Tnemory resident allowing 
use on systems without a 
fixed disk. Magic Menu 
also provides automatic 
screen blanking, dynamic 
variables for customizing 


IBM is a registered trademark of International Business Machines Corporation. 


CERTIFICATION 

SEAL 



general entries, speed | 
entries for advanced users, | 
and a host of other 
advanced 
features. 


Call us at (305) 768-2477 
for additional information 
on how to put Magic Menu 
to work for you. The Magic 
Menu is priced at under 
$100 and will be shipped 
by return mail. Major 
credit cards accepted. All 
inquiries are welcome. 


Melbourne, FL 32901 
©1984 


September 1985 


pcm 29 




printed in the extreme right- 
hand margin following the 
reference, if there is room. 

PRINT . BBS assumes that 200 strings 
are enough lines for all references, 
including continuation lines and 
embedded commands. If more string 
space is needed then RF should be 
increased in Line 10. 


copies to be printed. The default is 1. 
Instead of entering a number, you may 
enter the name of data file. When a data 
file is specified, PRINT. BPS will print 
one copy for each record in the data 
file. A record is 255 characters or less 
and is followed by a carriage return. 

Each record in a data file can be used 
as a source of data values according 
to the rules given by a . va command. 


the values in the data file as well as 
the names of the variables in the .oa 
command are separated by this char- 
acter. In this example, each record in 
the data file is expected to contain a 
last name and a first name separated 
by a comma. 

Fixed Field Format: 

.va, 16, LAST NAME, 16, FIRST NAME 


Selecting a Document 

The program initially assumes disk 
drive A as the default drive. Initial 
default set in Line 30. You can change 
the default by entering ‘B’ or ‘A’ instead 
of a filename, or you can override the 
default by specifying the drive along 
with the filename (e.g., B: FILENAME). 

Multiple Copies and Data Files 

After you have selected a document, 
PR I NT. BAS will request the number of 


Defining Variables in Data Files 

The . va command defines how 
values for variables are stored in data 
files. Values can be stored in a “delim- 
iter” format or in a “fixed field” format. 

Delimiter Format: 

. va ,LAST NAME, FIRST NAME 

The character that immediately 
follows the . va command is the delim- 
iter. When using the delimiter format, 


When using the fixed field format, 
the delimiter is used only in the . va 
command itself. The numbers preced- 
ing the names of the variables indicate 
the number of columns each value is 
expected to occupy. In this example, 
the last name is expected to be in 
columns one through 16, the first name 
in columns 17 through 32. 

PR I NT. BAS will remove leading and 
trailing spaces when using the fixed field 
format. □ 


The listing: 


1 

2 

3 

4 
9 

IP 

2j3 


ASCII DOCUMENT PRINTER 
written in MS-BASIC for an EPSON printer 
(C) Copyright 1984 by John Melski, Marshfield, WI 
All rights reserved 


DEFINT A-Z : PL=65 : RF=2j3j3 : DIM RF (RF) , RF$ (RF) 
OPEN "LPT1:" FOR OUTPUT AS 1: WIDTH #1,255 


c. p U Jr .DIN L*r 1 1 • Jr UU X JrU X Jn.%2 1 * nJLUXIl 7 f X / Z J 

30 CS$=CHR$ (251) : CC$=CHR$ (27) : CC$ (0) =CHR$ (222 ) :DR$="A:' 
40 CC$ (1) =CHR$ (252 ) : CF$ ( 1 , 0 ) =CC$+"F" : CF$ ( 1 , 1) =CC$+"E" 

" ~ CC$ ( 2 ) =CHR$ ( 2 53 ) : CF$ ( 2 , 0 ) =CC$+ " -0 " : CF$ ( 2 , 1 ) =CC$+" - 1' 
CC$ ( 3 ) =CHR$ ( 254 ) : CF$ ( 3 . 0) =CC$+"5" : CF$ (3 , 1) =CC$+"4 " 


50 

60 

70 

80 

99 

100 
110 
120 
130 

140 
150 
199 
200 
210 
215 
220 
225 
230 
240 
250 
2 60 
265 
270 
280 
290 
299 
300 

310 

320 


CF$ (4 ,0) =CC$+"T" : CF$ (4 , 1) =CC$+"S0" 
DEF FNS$ (A) =MID$ ( STR$ (A) ,2) 


' RF=REFERENCES 
' PL=PAGE LEN-1 
'CONTROL CHARS 
1 emphasize 
'underline 
' italisize 
' superscript 


to list files) '"START HERE 

' FI#3=DOC FILE 
' FI#2=VAR FILE 


CLS: PRINT: PRINT "DOCUMENT PRINTER (enter A or B 
A$=" DOCUMENT > ":FI=3:GOSUB 8000 : FI$=C$ 

A$=" NUMBER OF COPIES > ":FI=2: GOSUB 8000:FI=3 

ON ERROR GOTO 140 : PRINT#!, CC$"@"CC$"0" ; : ON ERROR GOTO 0:GOTO 200 
GOSUB 15)3: RESUME 130 

PRINT: PRINT "READY PRINTER — THEN STRIKE ANY KEY" : R$=INPUT$ ( 1) : RETURN 

f 

PRINT : IF NC THEN PRINT "PRINTING COPY" ;NC:GOTO 220 
IF EOF (2) THEN CLOSE 2, 3: GOTO 100 
LINE INPUT#2,W$: PRINT "PRINTING > »;W$:VN$="" 

FOR 1=0 TO 10 : CF (I) =)3 :TI$ ( I) ="" : RS$ (I) = "" 

FOR L=0 TO 3 : TI ( I , L) =0 : NEXT L,I 
LM=0 : RM=79 : TM=j3 : BM=63 : SP=1 : IN=LM 
LP=0 : LN=0 : VT=0 : PN=1 : TI=0 : RN=0 : RS=0 

CR=-1 : CE=0 : RJ=0 : DI=-1 : LF=0 : VA=0 : PZ=0 : PR=J3 : RP=)3 : RL=0 
N=TM: GOSUB 1000 : GOSUB 300 
IF L$>"" THEN GOSUB 700 
IF LN THEN GOSUB 760 

IF NC THEN NC=NC-1 : IF NC=0 THEN 100 

PRINT#1, CC$"@"CC$"0" ; :OPEN FI$ FOR INPUT AS 3:GOTO 200 

i 

IF EOF (FI) THEN CR=-1: CLOSE FI : IF FI>3 THEN FI=FI-l:GOTO 
: ELSE IF PR THEN 5400: ELSE RETURN 
LINE INPUTfFI , A$ : IF LEFT$ (A$ , DI*CR) =" . " THEN GOSUB 2000:GOTO 300'commands 
IF PR THEN IF VAL (LEFT$ (A$ , 1) ) OR CR=0 THEN GOSUB 9200 : CR=LEN (A$) <255 


'MULT COPY LOOP 

' W$=VAR VALUES 

'INITIALIZE 
'parameters 
' counters 
' flags 

'print document 
'last line 
'last page 


300 

'INPUT A$ LOOP 


: GOTO 300: ELSE GOSUB 5400 


'prnt ref 


30 
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' A$=MAIN STRING 
' C$=CONTROL STR 


330 CR=LEN (A$) <255 : GOSUB 400:IF CR THEN GOSUB 7)3)3: GOTO 3)3)3:ELSE 3)3)3 'prnt A$ 

399 ' 

4) 3)3 C$=A$ : L=LEN (A$) : FOR N =0 TO 3 : I=INSTR (A$ , CC$ (N) ) 

41)3 IF I THEN MID$ (A$ , I) =CHR$ (9) : MID$ (C$ , I) =CHR$ (N) : L=L-1 : N=N-1 
420 NEXT N: IF CE THEN IN= (IN+RM-L) \2 : IN=-IN* (IN>)3) : LP=IN 
499 1 

5) 3)3 I=INSTR (A$ , CHR$ (9 ) ) : IF I=)3 THEN P$=A$:GOTO 600 'PARSE A$ TO P$ 

51) 3 P$=LEFT$ (A$ , 1-1) : I=LEN (A$) -I : C$=RIGHT$ (C$ , 1+1) : A$=RIGHT$ (A$ , I) 

52) 3 GOSUB 600:I=ASC(C$) :ON 1+1 GOSUB 55)3 , 54)3 , 54)3 , 54)3 , 54)3 ,,,,, 53)3 : GOTO 5)3)3 

53) 3 1=8- ( LP-IN) MOD 8 : LP=LP+I : L$=L$+SPACE$ (I) : RETURN 'horizontl tab 

54) 3 OF (I) =NOT CF ( I) : L$=L$+CF$ ( I , -CF (I) ) : RETURN 'change font 

55) 3 VA=NOT VA:IF VA THEN V$="":RETURN 'get variable 

56) 3 IF VAL(LEFT$ ( V$ , 1) ) THEN GOSUB 9)3)3)3:ELSE GOSUB 9)3)3 

57) 3 IF CE THEN I=IN+ (LEN (V$ ) -LEN (P$) ) \2 : I=-I* (I>0 ) : LP=LP+I-IN: IN=I 
580 GOSUB 6)3)3: RETURN 

599 ' 

600 


' V$=VARIBL NAME 
' P$=PRINTABLES 


L$=PRINT LINE 


BREAK P$ 


L=LEN (P$) : IF VA THEN IF LEN (V$) +L<255 THEN V$=V$+P$ : RETURN 
: ELSE BEEP: PRINT " MISSING<"CC$ (0) ">"V$P$:VA=0 : RETURN 

61) 3 IF LP+L<=RM THEN L$=L$+P$ : LP=LP+L: RETURN 

62) 3 FOR I=RM-LP+1 TO 1 STEP -1 

625 IF INSTR( " ,MID$ (P$ , I, 1) ) THEN 1=1- (MID$ (P$ , 1+1 , 1) =" »):GOTO 65)3 

63) 3 NEXT I: FOR I=LEN(L$) TO 1 STEP -1 

635 IF INSTR ( " , MID$ (L$ , 1 , 1) ) * (MID$ (L$ , 1+ (I>1) ,1) >CC$) THEN 67)3 

64) 3 NEXT I : I=RM-LP 

65) 3 L$=L$+LEFT$ (P$ , I) : P$=MID$ (P$ , 1+1) : IF RJ THEN GOSUB 80)3 
660 GOSUB 700: GOTO 600 

670 R$=MID$ (L$ , 1+1) : L$=LEFT$ (L$ , I) : T=LEN (R$) : I=INSTR(R$,CC$) 

675 WHILE I : T=T-2+ (INSTR ( "WSp- !RisA3 JjC/QlU" , MID$ (R$ , 1+1 , 1) ) >0) 

680 I=INSTR ( 1+1 , R$ , CC$) : WEND: IF RJ THEN I=-T:GOSUB 800 
690 GOSUB 700 :L$=R$:LP=LP+T: GOTO 600 

699 ’ 

700 IF LN=0 THEN GOSUB 1000 

710 I=INSTR (L$ , CS$) :WHILE I :MID$ (L$ , I) =» " : I=INSTR ( L$ , CS $ ) : WEND 
720 IF CF ( 2 ) THEN PRINT# 1, CF$ (2,0) ; : L$=CF$ (2,1) +L$ 

730 PRINT#1 , SPACE$ ( IN) ; L$ ;STRING$ (SP, CHR$ ( 13 ) ) ; 

740 L$= " " : LN=LN+S P : LP=LM : IN=LM : CE=CE+ ( CE>0 ) 

750 IF LN<=BM THEN RETURN 

760 GOSUB 1000 : IF LN<=PL THEN PRINT# 1, CHR$ (12) ; 

770 IF PZ THEN GOSUB 150 

780 LN=0 : IF PN=32767 THEN BEEP: PRINT " PAGE NUMBER EXCEEDS 32767" : RETURN 
790 PN=PN+1: RETURN 

799 ' 

800 LP=LP+I:I=LEN(L$) 

810 WHILE MID$ ( L$ , I , 1 ) =" LP=LP-1 : 1=1-1 : IF I THEN WEND 

820 L$=LEFT$ (L$ , I) : IF LP=RM THEN RETURN: ELSE L=0 : FOR 1=1 TO RM-LP 
830 L=INSTR (L+2 , L$ , " "):IF L=0 THEN IF I>1 THEN 830:ELSE RETURN 
840 L$=LEFT$ (L$ , L) +" "+MID$ (L$ , L+l) : NEXT I : RETURN 

899 ' 

900 GOSUB 5370: IF V$="DATE" THEN P$=DATE$ : P$=MID$ (P$ , 4 , 2 ) 

+MID$ ( " JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC" , VAL(P$) *3-2,3) 

+MID$ ( P$ , 9 ) : RETURN 

910 I=INSTR(VN$,CC$+V$) 

920 IF 1=0 OR NC THEN PRINT " "V$"? " ; : LINE INPUT P$ : RETURN 


'BREAK L$ 


GOSUB HEADERS 


GOSUB FOOTERS 


'RIGHT JUSTIFY 


'LOOK-UP VARIBL 
' input variable 
' look-up value 
'dlimiter field 


930 T=ASC (MID$ (VN$ , 1-1) ) : IF VF(T,0) THEN 960 
940 1=0 : FOR T=0 TO T:L=I+1: I=INSTR(L,W$,VD$) :NEXT 
950 P$=MID$ (W$ , L, I- (1=0) *256-L) : RETURN 
960 P$=MID$ (W$ , VF (T,0) ,VF(T,1) ) : 1=1 : L=LEN (P$) 

970 WHILE MID$ (P$ , I , 1) =" ":I=I+1:WEND 
980 IF I<L THEN WHILE MID$ (P$ , L, 1) =" ":L=L-1:WEND 
990 P$=MID$ (P$, I, L-I+l) : RETURN 

999 ' 

1000 FOR N=0 TO VT : IF LN>VT (N) THEN NEXT N: RETURN 
1010 FOR N=N TO VT: IF LN<VT (N) THEN L=LN : LN=VT (N) 

:IF LF THEN PRINT#1 , STRING$ (LN-L, CHR$ (13 ) ) ; : ELSE PRINT# 1 , CHR$ (11) ; 'vtab 
1020 IF LN=TM THEN RETURN: ELSE IF LN>TM AND LN<=BM THEN 1090 

1030 T$=SPACE$ (255) :I$=T$:FOR 1=0 TO TI 'get TIs for LN 


' fixed field 


'TITLES/PAGE# 
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1040 

1050 

1060 

1070 

1080 

1090 

1999 

2000 

2010 


IF TI (1,0) —0 OR TI (I, 1) <>LN THEN 1010 
IF 1=0 THEN TI$ (0) =TI$+FNS$ (PN) : T=LEN (FNS$ (PN) ) 
:TI(0,2)=T2-T*T1\2:TI(0,3)=T3-T*(2-T1)\2 
L=TI (1,2) : MID$ (1$ , L) =CHR$ (I) : MID$ (T$ , L) ="T" 

NEXT I:T=l:L=INSTR(T$, "T") 

IF L THEN WHILE L: I=ASC (MID$ ( 1$ , L) ) : PRINT#1 , SPACE$ (L-T) ;TI$ (I) ; 
:T=TI (I, 3) :L=INSTR(T,T$, "T") : WEND: PRINT# 1, :LN=LN+1 'print 

NEXT N: RETURN 


adjust page TI 


titles 


P$=A$ : C$ = "" : FOR 1=2 TO 3 
L=ASC (MID$ (P$ , I) ) : C$=C$+CHR$ (L+ (1-2+ (L>90) ) *3 2) : NEXT 


•DOT COMMANDS 


tp±)o ^ , ± ) ) : v»9=c?-rv_nK9 ^ ij-r- ^ x-z-r (, ~ ; ; injiai j. 

2030 CO=INSTR("LmRmTmBmVtPgPnNnNuSpSkCeTpNpInTiNtFiQuDiRjLfPzVaPr",C$) 

2040 IF PR THEN IF INSTR ( "PrFi" , C $ ) =0 THEN 9300 

2050 CO=CO\2+l:P$=MID$(P$,4) : IF CO<18 THEN GOSUB 6000 : N=N+ (CO<6) 

2060 ON CO GOTO 3100,3200,3300,3400,3500,3600,3700,3800,3800,3900,4000,4100,4200 
,42)3)3,4400,450)3,460)3,47)30,4800,49)3)3,5)300,510)3,52)3)3,5300,54)3)3 
3000 BEEP: PRINT " COMMAND ERROR > ";A$: RETURN 
3100 IF N<0 OR N>RM THEN 3000: ELSE LM=N : IN=N : LP=N : RETURN 
IF N<LM OR N>13 1 THEN 3000:ELSE RM=N : RETURN 
IF N<0 OR N>BM THEN 3000: ELSE TM=N : GOTO 7000 
IF N<TM OR N>PL THEN 3000:ELSE BM=N : RETURN 
IF N<0 OR N>PL THEN 3000 : ELSE -IF LN>=N THEN 


3200 

3300 

3400 

3500 

3510 

3520 

3530 

3600 

3700 

3800 

3900 

4000 

4100 

4200 

4300 

4400 

4499 

4500 
4510 
4520 
4530 
4540 
4550 
4560 
4570 
4580 
4585 
4590 
4595 
4599 
4 600 
4610 

4699 

4700 
4710 
4720 
4730 
4740 
4750 
4760 

4799 

4800 
4900 
5000 
5100 
5200 

5299 

5300 


RETURN 

SWAP LN, N: IF LF THEN PRINT# 1 , STRING$ (LN-N, CHR$ (13 ));: RETURN 
PRINT# 1 , CC$"b"CHR$ (1) CHR$ (LN) CHR$ (0) ; 

PRINT# 1,CC$"/"CHR$ (1) CHR$ (11) CC$"/"CHR$ (0) ; : RETURN 
CO=0 : GOTO 4530 

IF N THEN PN=N : C$="Nu" : ELSE TI(0,0)=NOT TI (0,0) : RETURN 
TI (0 , 0 ) =C$="Nu" : RETURN 

IF N<0 OR N>3 THEN 3000: ELSE SP=N: RETURN 

N=LN+N- ( LN=0 ) *TM : GOTO 3500 

IF N<0 THEN 3000 : ELSE CE=N- (N=0) : RETURN 

IF N AND LN+N<=BM THEN RETURN 

GOSUB 700: IF LN THEN 7 60: ELSE RETURN 

N=LM+N : IF N<0 OR N>RM THEN 3000: ELSE IN=N : LP=N : RETURN 

I 

IF N=0 THEN FOR 1=1 TO TI : TI ( I , 0 ) =-l : NEXT I: RETURN 

IF N<0 OR N>10 THEN 3000: ELSE CO=N 

GOSUB 6000: IF N=0 THEN TI (CO, 0) =-l: RETURN 

N=N-1 : IF N<0 OR N>PL THEN 3000:ELSE TI(CO,l)=N 

GOSUB 7000: T0=INSTR ( " LICcRr" ,MID$ (P$ , 2 , 1) ) \2-l : IF T0<0 THEN 

1=3 : WHILE INSTR(" MID$ (P$ , I , 1) ) =0 : 1=1+1 : WEND 

P$=MID$ (P$ , 1+1) : IF LEN (P$) >RM THEN 3000 

A$=P$ : IN=0 : LP=0 : CE=0 : GOSUB 400 

TI (CO , 2 ) = (LM* ( 2-T0 ) + (RM-LP) *T0 ) \2+l : TI (CO , 3 ) =TI (CO,2)+LP 
IF CO=0 THEN T1=T0 : T2=TI (0 , 2 ) :T3=TI(0,3) :TI$=L$ 

IN=LM : LP=LM : IF CO>TI THEN TI=CO 
TI $ ( CO ) =L$ : L$=" " : TI ( CO , 0 ) =-l : RETURN 


1 command error 
' Lm=LEFT MARGIN 
' Rm=RIGHT MRGN 
' Tm=TOP MARGIN 
' Bm= BOTTOM MRGN 
' Vt=VERT TAB 

' set channel 1 
1 execute tab 
1 Pg=PAGE TITLE 
1 Pn=SET PG# 

1 Nu/Nn=on/of f 
1 Sp=SPACING 
1 Sk=SKIP 
' Ce=CENTER 
1 Tp=TEST PAGE 
' Np=NEW PAGE 
' In=INDENT 

' Ti=TITLES 

1 , 0 ) =on/ off 
' , 1) =line# 

3000 


IF N=0 THEN FOR 1=1 
IF N<0 OR N>10 THEN 


TO TI:TI (1,0) =0: NEXT I: RETURN 
3000: ELSE TI (N,0) =0 : RETURN 


1 , 2) =position 


'TI$ (CO) =text 
' Nt=SUPRESS TI 


4 7 50: GOTO 


' Fi=INCLUDE DOC 
4730 


WHILE LEFT$ (P$ , 1) =" " : P$=MID$ (P$ , 2 ) : WEND : R$=" " 

IF MID$(P$,2,1)<>":" THEN R$=DR$:ON ERROR GOTO 
ON ERROR GOTO 4760 
OPEN R$+P$ FOR INPUT AS FI+1:FI=FI+1 
ON ERROR GOTO 0: RETURN 

R$=CHR$ (66+ (ASC (R$ ) =66 ) )+":":RESUME 4720 
GOSUB 3000: RESUME 4740 

I 

" :P$=MID$(P$,2) : WEND : PRINT # 1 , P$ ; : RETURN f Qu=PRNT CONTRL 

' Di=DISENABLE 
•Rj=RIGHT JUST 
1 Lf=LINE FEED 
? Pz=PAGE PAUSE 


WHILE LEFT$(P$,1)=" 
DI=NOT DI: RETURN 
RJ : RETURN 
LF : RETURN 
PZ: RETURN 


RJ=NOT 

LF=NOT 

PZ=NOT 

i 


VN$= n M : FOR I=p TO 10 : VF ( I , ) =J3 : VF ( 1 , 1 ) =j3 : NEXT 


53 lj3 VD$=LEFT$(P$, 1) : P$=MID$ ( P$ , 2 ) +VD$ : T=j3 : L=1 


' VN$=VAR 
1 VD$=VAR 


NAMES 

DELIM 
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532)3 I=INSTR(P$,VD$) :IF 1=0 THEN RETURN 'VF(=VAR FIELDS 

533J3 V$=LEFT$(P$,I-1) : P$=MID$ (P$ , 1+1) :N=VAL(LEFT$ (V$ , 4) ) ',0)=field pos 

5340 IF N THEN IF N<1 OR N+L>255 THEN BEEP : PRINT " FIELD OUT OF RANGE" : RETURN 
: ELSE VF ( T , 0 ) =L : VF ( T , 1 ) =N : L=L+N : GOTO 5320 ',l)=field len 

53 50 IF LEN (V$ ) +LEN (VN$ ) +2>255 THEN BEEP: PRINT " TOO MANY VARIABLES RETURN 
53 60 GOSUB 53 70 : VN$=VN$+CHR$ (T) +CC$+V$ : T=T+1 : GOTO 5320 

5370 FOR 1=1 TO LEN (V$) : N=ASC (MID$ (V$ , I) ) 'make UPPERCASE 

5380 IF N>96 AND N<123 THEN MID$ (V$ , I) =CHR$ (N-32 ) 

5390 NEXT I: RETURN 

5399 ' 

5400 PR=NOT PR:IF PR THEN RP=INSTR(P$, "#") :N=0:RL=RF 

IFOR 1=1 TO RN :RF (I) =0 :RF$ (I) = "" :NEXT I: RETURN 'Pr=PRINT REF 

541j3 RF$ (0) =A$ : FOR RN=1 TO RN: A$=RF$ (RN) :CR=LEN(A$) <255 
5420 P$=A$: GOSUB 6000 : A$=P$ : IF RP THEN RP=N 

5430 L$=FNS$ (RN) :LP=LEN(L$) : IN=LM-EP-2 : IN=-IN* (IN>0) : LP=LP+IN : RL=RN : GOSUB 400 
5440 WHILE CR=0 :RL=RF (RL) :A$=RF$(RL) : CR=LEN (A$) <255 : GOSUB 400:WEND 'continue 
5450 IF RP THEN R$=STR$ (RP) : I=80-LEN (R$ ) -LP : IF I=>0 THEN L$=L$+SPACE$ (I) +R$ 

5460 GOSUB 700: WHILE RF (RL) : RL=RF (RL) : A$=RF$ (RL) 'commands 

5470 IF DI THEN GOSUB 2000: ELSE GOSUB 400: GOSUB 700 
5480 WEND : NEXT RN : RN=RN-1 : RL=0 : A$=RF$ (0 ): RETURN 

5999 ' 

6000 N=l: WHILE INSTR ( "-123456789" ,MID$ (P$,N, 1) ) =0 : N=N+1 : WEND 
6010 L=N+1: WHILE INSTR(" 0123456789" ,MID$ (P$ , L, 1) ) >1 : L=L+1 : WEND 
6020 ON ERROR GOTO 6040 : N=VAL (MID$ (P$ , N , L-N) ) 

6030 P$=MID$ ( P$ , L) : ON ERROR GOTO 0 : RETURN 

6040 BEEP: PRINT " OVERFLOW > " ;MID$ ( P$ , N, L-N) : N=0 : RESUME NEXT 

6999 ' 

7000 FOR 1=0 TO VT: IF VT(I)<N THEN NEXT I: GOTO 7030 
7010 IF VT ( I ) =N THEN RETURN 

7020 FOR L=VT+1 TO 1+1 STEP -1 : VT (L) =VT (L-l) : NEXT L 
7030 VT (I) =N: VT=VT+1 : IF LF THEN RETURN 

7040 PRINT#1, CC$"B" ; : FOR 1=1 TO VT: PRINT#1 , CHR$ (VT (I) ) ; :NEXT I 
7050 PRINT#1,CHR$(0) ;: RETURN 
7999 ' 


'GET N FROM P$ 


'Vt FOR TmTiPg 


'set channel 0 


8000 

8010 

8020 

8030 

8040 

8050 

8060 

8070 

8080 

8999 

9000 
9010 
9020 
9030 
9040 
9050 
9060 
9070 
9080 
9090 

9099 

9100 
9110 
9120 
9130 
9140 

9150 

9199 

9200 
9300 
9310 
9999 


PRINT: PRINT A$ ;: INPUT; C$ 'INPUT FILES 

IF C$="" THEN IF FI=3 THEN SYSTEM: ELSE C$="l": PRINT 1; 

PRINT : NC=VAL ( C$ ): IF NC*(FI=2) THEN 8070 

ON ERROR GOTO 8080 : I=INSTR ( "A: a : B : b : " , C$ ) ' DR$=DISK DRIVE 

IF I MOD 2=1 THEN DR$=MID$ ( "A: A: B : B : " , I , 2 ) : FILES DR$:GOTO 8000 
IF MID$ (C$,2, 1)0": " THEN C$=DR$+C$ 

OPEN C$ FOR INPUT AS FI 
ON ERROR GOTO 0: RETURN 
BEEP: RESUME 8000 

I 

P$=V$:T=0:IF RL .THEN RETURN 'EXPLODE REF#s 

GOSUB 6000 : I=N : IF LEFT$ (P$ , 1) ="-" THEN GOSUB 6000:N=-N 
IF I THEN FOR 1=1 TO N: T=T+1 : RF (T) =1 : NEXT I : GOTO 9010 
FOR 1=1 TO T : N=RF ( I ) : GOSUB 9100 :RF (I) =N:NEXT I 

WHILE I: 1=0: FOR L=1 TO T-l 'BUBBLE SORT RF 

IF RF (L) >RF (L+l) THEN SWAP RF (L) ,RF (L+l) : 1=1 
NEXT L: WEND 

P$="" : R$=" " : FOR 1=1 TO T: P$=P$+R$+FNS$ (RF (I) ) :R$=" , " 'IMPLODE REF#s 

FOR L=I+2 TO T: IF RF (L) -2=RF (L-2 ) THEN R$=CHR$ ( 173 ): I=L-1 : NEXT L 

NEXT I : L$=L$+CF$ (4,1) : CF ( 4 ) =-l : A$=CHR$ ( 9 ) +A$ : MID$ (C$ , 1) =CHR$ ( 4 ) : RETURN 

R$="<"+FNS$ (N) +">" : FOR N=0 TO RS : L=INSTR (RS$ (N) ,R$) 'CONVERT REF# 

IF L THEN N=VAL(MID$ (RS$ (N) , L+LEN (R$) ) ) :RETURN 
NEXT N:N=0:IF PR THEN RETURN : ELSE IF RN=RF THEN 9999 

RN=RN+1:N=RN:R$=R$+FNS$ (N) 'ASSIGN REF# 

IF LEN (RS$ (RS) ) +LEN (R$) >255 THEN IF RS<10 THEN RS=RS+1 
: ELSE BEEP: PRINT " TOO MANY REFERENCES ": RETURN 
RS $ ( RS ) =RS $ ( RS ) +R$ : RETURN 


IF CR THEN P$=A$: GOSUB 6000: GOSUB 9100 : RF$ (N) =A$ : RETURN 'SET UP RF$() 

IF N=0 THEN RETURN 'LINKED LISTS 

IF RL>RN THEN RF (N) =RL: N=RL: RF$ (N) =A$ : RF (N) =0 : RL=RL-1 : RETURN 
BEEP: PRINT " RF ( ) IS TOO SMALL" : PR=0 : RETURN 

I I 
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Subroutine City 

Feature 


1000, 1200, 2000 






Access Your 


Disk Directories 
from BASIC 


By Robert D. Covington 


F or some reason, most versions of 
BASIC don’t support directories 
from inside a BASIC program. 
Ironically, BASIC is capable of extensive 
file manipulations but it is incapable 
of knowing what is on the disk. The 
closest GW-BASIC gets to accessing the 
directory from BASIC is the FILES 
statement. 

In the past few years, I have seen quite 
a few strange methods for getting 
around BASIC’s inability to access a 
subdirectory. One method is to clear 
the screen, execute a FILES statement, 
and use the SCREEN function to load 
the contents of the screen into a string. 
Another method is to create a file in 
the directory that points to the disk’s 
directory (you, of course, need a “disk 
zapper” and a lot of knowledge of MS- 
DOS to do this). Then, this file can be 
accessed from BASIC to read the direc- 
tory. As you can see, both of these 
methods are very cumbersome and 
prone to errors. 

In this month’s installment of “Sub- 
routine City,” a very short and simple 
subroutine is described that not only 
retrieves the name of the files on the 
disk but also various other information 
contained in the directory. 


(Bob Covington has been a computer 
programmer and consultant for the past 
six years, most recently focusing his 
attention on both the Model 100 and 
the 2000. He is also a technical writer 
and editor. Bob can be contacted at 
P.O. Box 37007, St. Louis, MO 63141.) 


MS-DOS’s Directory Structure 

MS-DOS stores three pieces of 
information in its directory: volume 
name, subdirectory information and file 
information. 

The volume name is the name that 
describes the entire disk. This name is 
usually set with the FORMAT utility when 
the /V option is selected. In most cases, 
the volume name is used by users and 
application programs to verify that the 
correct disk is inserted in a specific 
drive. Like most system data, the 
volume name can only be accessed on 
the root directory. 

The subdirectory information is used 
to describe the name and files associated 
with a subdirectory. In most cases, the 
only user-readable information in this 
section is the actual subdirectory name. 
The rest of the information stored with 
the subdirectory entry is usually useless 
to the user. 

The file information is used to 
describe the name, size, date, time, 
attribute and location of a file. All of 
this information except for the location 
of the file and the file attribute is 
accessible from MS-DOS command 
level with the DIR command. 

How does MS-DOS know if an entry 
is a volume name, subdirectory or file? 
MS-DOS internally stores a two-byte 
attribute with each entry in the direc- 
tory. By setting and resetting individual 
bits in the attribute, a directory entry 
can take on various forms. Table 1 
describes the functions of the attribute 
bits used by MS-DOS. As you can see 
from this table, only six bits of the 16 
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Table 1 

Directory Search Attribute Bit Map 

Bit: 

0 — Read only 

1 — Invisible file 

2 — System file 

3 — Volume label only 

4 — Sub-directory names 

5 — Archive files 

available bits are used for the attribute. 
For example, if bit three were set in 
a directory entry, the file would be 
considered by MS-DOS to be a volume 
name entry. If bit four were set, the 
entry would be considered a subdirec- 
tory entry. 

The remaining bits in the attribute 
word are used to describe a user file. 
Read only status (bit zero, as the name 
implies, tells MS-DOS that the infor- 
mation in the file cannot be changed 
but only read. Invisible status (bit one) 
makes a file invisible from a normal 
MS-DOS DIR command. This status 
(bit two) is used to “hide” many of MS- 
DOS’s internal files such as the BIOS. 
The system status is used to tell MS- 
DOS that a certain file is required for 
an operational MS-DOS system. Any 
file with this status is usually copied 
with a 5V5 or a FORMAT /S command. 
If a file has none of the above attributes, 
it is usually considered an ordinary 
read/ write access file. 

The archive status (bit five), unlike 
most of the other attributes, is period- 
ically changed by the system. The 
archive status is used to report if a file 
has been modified. This status is mostly 
used to inform copy utilities that a file 
has been changed and that the backup 
of that file should be changed also. In 
most cases, the status of this bit has 
no effect on the actual MS-DOS 
operating system. 

Directory Access Subroutine 

Lines 16000-16060 of Program 1 
contain the subroutine for directly 
accessing the information contained on 
a disk’s directory from BASIC. This 
subroutine will search through the 
entire directory for a file with a certain 
attribute and pathname. On entry to 
this subroutine, PN$ contains the 
desired pathname search attribute and 
AT* contains the attribute to search for. 
The pathname can be any legal MS- 
DOS global pathname descriptor. For 
example, if PN$ were equal to *.BAS, 
the subroutine would search for all files 
with the . BAS extension. The search 
attribute can be used to include files 


with peculiar attributes in the directory 
returned to BASIC. A few examples of 
legal attributes are: 

0 — All normal files with no special 
attributes 

7 — All readable files 

8 — Volume name only 

15 — All readable files and volume 

name 

16 — Normal files with no special 

attributes and subdirectories 
31 — All readable files with volume 
name and subdirectories 

With MS-DOS 2. lx, performing the 
command: PN$= AT* = 31 : 

G0SUB 16000 will cause this subroutine 
to return all of the directory entries on 
the current default drive/ directory. If 
such a universal search qualification is 
used, make sure your program recog- 
nizes that the returned information 
includes more than just filenames. 

On exit from the directory access 
subroutine, N contains the number of 
directory entries found, N$( ) contains 
the path/ volume/ directory name found 
in each directory entry, L ! ( ) contains 
the length of the file in bytes, AT*( ) 
contains the actual attribute of the 
directory entry and E contains the error 
status. The error status returned in E 
can have the following error codes: 

0 — No error 

2 — Invalid pathname 
18 — No match 

The arrays N$( ),L!( )andAT*( ) 
only contain information on directory 
entries that meet the pathname and 
attribute qualifications passed to the 
subroutine on entry. If, for example, 
a very ambiguous search qualification 
is used, such as PN$="*.*":AT*=31, 
the attribute in AT*( ) will need to be 
used to organize the returned informa- 
tion into the directory’s three distinctive 
groups (volume name, subdirectories 
and files). If a very specific search 
qualification is used, such as 
PN$="DB.BAS":AT*=0, the data 
returned from the subroutine should 
not require many array elements. 

The demonstration program in lines 
30-75 obtains the filenames of all the 
files with a .BAS extention on the 
current default drive and allows them 
to be executed by the program. Line 
30 loads the names of all the normal 
attribute files with a .BAS extention 
into N$( ). If no files are found with 
the .BAS extention, the program prints 
a warning message and the program is 
aborted. Lines 50-75 allow the user to 



Educational Software 
that WORKS 
at PLAY 


An innovative and entertaining 
puzzle game designed with well 
known crossword techniques. 

• For TANDY Computers 

• 45 different color puzzles 

• Timing and Scoring 

• Additional puzzle diskettes 
available 

Call 

1 - 601 - 373-2508 A 

or send for information to Jjju 
ISTAR CORPORATION A 
P.O.Box 567 M 

Brandon, MS 
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ISTAR CORP JFsjaM 


September 1985 


pcm 35 



scan through the list of program names 
by pressing the up and down arrows. 
As the user scans through the names, 
each filename is printed in the center 
of the screen. When the space bar is 
pressed, the RUN in Line 100 executes 
the BASIC program that is currently 
displayed on the screen. 

Subroutine City Corrections 

In my June 1985 installment of 
“Subroutine City,” I made a slight error 
in describing the efficiency of the binary 


search algorithm. On Page 57, I stated 
that “. . . the greatest number of 
compares (required for a binary search) 
is equal to the square root of the number 
of records in the data array.” I am sure 
that any Computer Science professor 
would shriek at those words. In actu- 
ality, the greatest number of compares 
required by a binary search is equal to 
the LOG base 2 of the number of 
records in the data array. This means 
that a 1,000 element array requires only 
ten actual compares (not 33 as I stated 


later in the article). In either case, the 
binary search is still one of the fastest 
searches around. 

End Notes 

If you have any question, comments, 
suggestions, etc. on any of the material 
presented in this series or questions 
about Tandy’s MS-DOS, feel free to 
write to me at P.O. Box 37007, Creve 
Coeur, MO 63141. Please enclose a self- 
addressed stamped envelope if you want 
a reply to your letter. □ 


The Listing: 

1 1 *** MS DOS Function Subroutines for BASIC 

2 » *** By Robert D. Covington 

10 DIM B$ , AX, BX, CX , BP, SI , DI , SW , N$ ( 1000 ) ,L! ( 1000 ) , AT% ( 1000 ) ,T(1000) ,D(1000) 

20 FOR X=1 TO 100 : READ A : BIOS$=BIOS$+CHR$ ( A) : NEXT : X=FRE (X) : V=VARPTR (BIOS$ ) : BIOS ! 
=PEEK ( V+l) +PEEK (V+2 ) *256 
25 SP$=SPACE$(80) :NL$=CHR$(0) 

30 AT%=j3:PN$="*. BAS": GOSUB 16000HF N=0 THEN LOCATE 12 , 3 6 : PRINT"No Files" : BEEP : E 
ND 

40 CLS : PRINT"Use the Up and down arrows to scan through the available BASIC prog 

rams . " : PRINT"Press the space bar to run the program. F=0 : GOTO 60 

50 A$=INKEY$ : IF A$="" THEN 50 ELSE A=ASC(A$) :IF A<30 OR A>32 THEN 50 ELSE ON A- 2 

9 GOTO 60 ,10 , 100 : GOTO 50 
60 F=F+1 : IF F>N THEN F=1 
65 GOTO 75 

10 F=F-1: IF F<1 THEN F=N 

75 LOCATE 12,1: PRINT SP$;: LOCATE 12 , (80-LEN (N$ (F) )) /2 : PRINT N$(F);:GOTO 50 
100 X$=N$ (F) : RUN LEFT$ (X$ , INSTR(X$ 

999 END 

*** Read directory 
Entry: 


- Pathname 

- Search file attributes 


Exit: 


16000 
16001 
16002 

16003 

16004 

16005 

16006 
16001 
16008 
16009 

16010 ' 

16020 1=33 : A$=SPACE$ (43): GOSUB 32 000 : AX%=6656 : GOSUB 40000 

16030 AX%=19968 : CX%=AT% : PN$=PN$+CHR$ (0) : SWAP PN$,A$:GOSUB 32,0)30:SWAP PN$,A$:GOSU 
B 40000 :N=0 : E=AX% : IF E>0 THEN RETURN 

16040 N=N+1 : X$=MID$ (A$ , 31) : N$ (N) =LEFT$ (X$ , INSTR (X$ , NL$) ) 

16,05,0 Li (N) =CVI (MID$ (A$, 27, 2) ) +CVI (MID$ (A$, 29, 2) ) *6553 6! : AT% (N)=ASC(MID$ (A$, 22, 1 


PN$ 

AT% 

E - Error status 
N - Number of files found 
N$() - Matching pathnames (files) 
L! () - Length of file in bytes 
AT% ( ) - Attribute of file 


TANDY 200 24K EXPANSION MODULES $129. 

TWO EXPANSION MODULES FOR $249 


QK MEMORY MODULE $35 

For your Model 100 & NEC PC-8201. Field proven (over 20,000 in use), factory tested and fully supported. 


Just for your NEC PC-8201 

SIDECAR 32K RAM CARTRIDGE $159 
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Each additional 32K RAM bank $30, installed. 


^3 COMPLETING 
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Camarillo, CA 93010 


Portable Thermal Printer 
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Orders shipped UPS next business day. 30-day satisfaction, 
money back guarantee. We accept Visa, M/C & Amer. Exp. 
Checks held 18 days. 

( 800 ) 732-5012 
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A% - Signed Integer (-32768 - 32767) 


)) 

16,06,0 AX%=20224 :GOSUB 4,000,0 : E=AX% : IF E=18 THEN E=0: RETURN ELSE 16040 

31000 ' *** Convert Integer to signed integer 

31001 ' Entry: 

31002 ' A! - Integer (0-65535) 

31003 1 Exit.: 

31004 

31005 

31010 IF A! >32767 THEN A%=A! -65536! ELSE A%=A! 

31015 RETURN 

*** Find address for string 
Entry: 

A$ - string to find address of text 

Exit: 

DX% - Address of text in string 


32000 

32001 

32002 

32003 

32004 

32005 

32010 V!=VARPTR(A$) : A! =PEEK ( V! +1) +PEEK ( V ! +2 ) *256 : GOSUB 31000 : DX%=A%: RETURN 

40000 ' *** call DOS function 

40001 ' I - Interrupt Number 

40002 ' AX%, BX%, CX%, DX%, BP%, SI%, and DI% - Registers passed to and from DOS 

40003 ' SW% - Status word 

WiPtififiPPilPP'WP^^ 

40010 MID$ (BlOS$ , 48 , 1) =CHR$ (I) : CALL BIOS! (AX% , BX% , CX% , DX% , BP% , SI% , DI% , SW%) : RETUR 
N 

50000 ' Program: BIOS Length: 100 bytes 

50001 DATA 30, 7, 139, 236, 139, 94, 4, 255, 55, 157, 139, 94, 6, 139, 63, 139, 94, 8, 139, 55, -139, 
94,12,139,23,139,94,14,139,15,139,94,18,139,7,139,94,16,139,31,139,110,10,139,11 
0,0,205,33,85,83,139,236,139,94,8,156,143,7,139,94,10,137,63,139,94,12 

50002 DATA 137,55,139,94,16,137,23,139,94,18,137,15,139,94,22,137,7,91,139,110,2 
0,137,94,0,139,110,14,91,137,94,0,202,16,0 

60000 A$=INKEY$ : IF A$="" THEN 60000 ELSE PRINT ASC(A$):GOTO 60000 
________ fjsm 
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We’re the people who gave the CGP- 
115 Color Plotter business status. 
With QuickPlot, your Model 100, or 
Tandy 200, produces high quality 
line-, bar- and pie-charts in vivid 
color. Simple data entry and flexible 
chart formatting makes QuickPlot 
and the CGP-115 Color Plotter the 
logical choice for the professional 
who wants to plot his profits— not 
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Complete QuickPlot Package 
Includes: Bar Chart, Pie Chart 
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future plotting. 
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$ 49 .<>o 

We pay shipping 
on pre-paid orders 


Model 100, Tandy 200 and CGP-1 15 are 
registered trademarks of Tandy Corporation. 


Now you have a friend in the software business. 

Computer Solutions Co. 
P.O. Box 24383 
Louisville, KY 40224-0383 
(502) 245-0232 
Call or write to place your order or send for tree 
information. 


^ mm c o M p u T E n mmm 
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A potentially dangerous bug is discovered in Tandy 200 BASIC. 


200 


If X Equals Zero 

Then X Equals Ten Trillion 


I write software, both in BASIC and 
Assembler. And I make mistakes. 
Usually, I end up spending more 
time debugging my programs than I 
spend writing the programs in the first 
place. Most programmers would tell 
you the same thing. The people who 
developed Microsoft BASIC for the 
Tandy 200 would probably concur. 

I tell you this because Microsoft 
writes some really great software and 
does, for the most part, a thorough job 
of debugging the software. When 
writing a BASIC program, I encounter 
many of my own mistakes. It is rare 
that I encounter a mistake in the BASIC 
interpreter itself. 

Typos are the most common errors 
made. A misplaced comma here or there 
does the trick just fine. For example: 

F , DR X=1 TD 100 

(Note that the comma does not belong 
here!) 

Typos usually are detected by the 
BASIC interpreter and generate the 


(Dr. Laurence D. Preble is a Louisville 
chiropractor who worked his way 
through college by programming. His 
avocational interests include flying and 
ham radio. His interest in microcom- 
puters dates from when you had to build 
your own — which he did.) 


By Dr. Laurence D. Preble 


infamous ?5N error (syntax error). I 
make lots of syntax errors! 

Grammatical errors occur when 
properly spelled words are just used 
incorrectly. An example in English 
could be, “For years I could not spell 
programmer. Now I are one.” A BASIC 
example: 

NEXT X :F0R X=1 TO 100 

(Should read: FOR X=1 TO 100: NEXT 

X) 

The BASIC interpreter will detect 
most grammatical errors as well as 
errors in syntax. 

Logical errors are more trouble to 
detect. Logical errors occur when you 
give the computer a grammatically 
correct statement which unfortunately 
does not convey the right message. 
Have you ever spoken with someone 
who just happened to be talking while 
sound asleep? I have. You might get 
something like, “Larry, don’t forget to 
wind up the refrigerator!” Now, that 
is a grammatically correct command — 
but it just does not make any sense! 
In Computer Lingo, you might have 
said something like FOR X=1 TO 100 
when you really meant to say FOR X=1 
to 200. Both statements are grammat- 
ically correct. Only one will do the right 
job. 

A truly rare bird is “The Dreaded 
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System Bug!” Unfortunately, I just 
stumbled across exactly that sort of 
error in Microsoft BASIC for the Tandy 
200. 

The bug is easy to miss because it 
only pops up when all of the conditions 
are just right. The bug involves a 
combination of two unrelated state- 
ments. INT and PRINTUSING. To 
illustrate the bug, type in the following 
simple program: 

10 X=INT ( .1) 

20 PRINT X 

30 PRINTUSING"tt««tttt«tttt««««»»";X 

In Line 10, X should be assigned the 
integer portion of (.1). Since the integer 
portion of (.1) is 0, X should be equal 
to zero! 

In Line 20, the value of X is printed 
out. Sure enough, the answer is zero. 

In Line 30, X should again be printed 
out but should be printed with 13 
leading blanks because of the rules of 
formatting used with the PRINTUSING 
statement. 

Now lets look at what really happens. 
Run the program. The Model 100 
executes this program correctly; the 


Tandy 200 does not. The correct output 
would be: 

0 

0 

Notice the 13 spaces before the second 
zero. The PRINTUSING statement cor- 
rectly inserts the extra spaces according 
to BASIC’s rules of formatting. 

The output on the Tandy 200 is: 

0 

10000000000000 

The ordinary PRINT statement cor- 
rectly shows X to be equal to zero. A 
PRINTUSING statement claims that X is 
equal to ten-trillion. (One thing you can 
say about computers is that when they 
make mistakes, they make them big!) 
By the way, you may substitute the 
word F I X for the word I NT and the same 
problem occurs. 

Now substitute the following line for 
Line 20 

20 PR I NTUS I NG "8 ~ : X 

Run the program again. The new 
output on the Tandy 200 is: 


0 

*10000000000000 

The * sign just means that the number 
printed was too huge to fit in the 
assigned format. 

In general terms, Microsoft BASIC for 
the Tandy 200 makes an error any time 
you take the integer portion of any 
number less than one but greater than 
zero and then print the result with a 
PRINTUSING statement. The problem 
also occurs for numbers greater than 
negative one but less than zero. 

It may be a while before a corrected 
version of Microsoft BASIC is available 
for the Tandy 200. Until then, you may 
compensate for the bug by rewriting the 
program as shown below: 


10 X=INT ( - 1 ) 

15 IF X-0 THEN X=0 : REN (This line 
is the fixup!) 

20 PRINT X 

30 PRINTUSING"88tt8tttttttt88tt888":X 

In Line 15, X is being reassigned to zero. 
This seems to fix the problem with the 
PRINTUSING statement. Q333 


LOW LOW PRICES 
on 

Hard Disk Drives 
Floppy Disk Drives 
Star Printers 


Anchor Modems 


Diskettes 


Color Computer Dr jzf 

Single ps& case $44.95 Dual ps& case $79.95 



Color Computer Controller fj&M] 

DRIVE 0 FQR PAQ I Q SHA CK CQ L QR C OMPUTER 



$ 129.95 


TANOON. MPI OB TEAC DRIVE SINGLE SIDED 40 TRACKS SPEEO 5mS TRK TO TRK& UP 
POWER SUPPLY and CASE TWO DRIVE CABLE WITH ALL GOLD CONNECTORS . 

J&M CONTROLLER MANUALand DOCUMENTATION , $ SALE 1 


DRIVE Q FQ R R ADIO SHAC K COL OR C OMPUTER 


PANASONIC 17 HEIGHT DOUBLE SIDED DOUBLE DENSITY DRIVE 50OK unlormatlad 

POWER SUPPLY and CASE, 2 ORIVE CABLE WITH ALL GOLD CONNECTORS 

J&M CONTROLLER MANUALand DOCUMENTATION SJJ9&35, 


TAKE ADDED SAVINGS ON TWO DRIVE SYSTEMS 

DISKETTES with free library case 

Unadvertised Specials 

Drives cleaned, aligned & tested 



.^fSALE! 

$1795 

$Call 

$2995 


technical staff on duty please call for assistance 

CALL US TODAY!! (617)234-7047 •DEALER INQUIRIES INVITED 

? ORDER TOLL FREE 1-800-635-0300 ( 617 ) 234-7047 

TRUE DATA PRODUCTS 

195 Linwood Slreel. P.O. Sox 546 vV(! welcome 

Lmwood. Massachusetts 0T525 ‘Visa Mnst&i C*wqf 21 — r 

( 617 ) 234-7047 * Chocks ul'Ow i 1 weeks for C'eauog 

HOURS MON SAT 9 6 ES T *COD AtkJS?0O 



TOLL FREE ORDER LINE 
( 800 ) 245-6228 

****** UPGRADES******* 

FOR MODEL 1200 
and IBM PC 


MULTIFUNCTION 
CARD (Ser. Par. 
Real Time Clock 
Game Port 0-384K) 
each 64K installed 


(with Composite 

& Light Pen Ports) equivalent 

FOR MODEL 1000 

SECOND DRIVE (ana ItOQQ OO 

(Exact Match) 5124. fc^yy.— 

10 MEG 
HARD DRIVE & 

CONTROLLER 
1/2 Height 
Low Power 


PRICE 

COMPUTER 

STORE* 

$ 149 . 

$759.22 

$ 10 . 

$95.9° 

d 

$ 1 10 . 

$350.99 

NO 


Call for 
LATEST 
PRICES!!! 
(800) 
245-6228 


$ 575 .$ 1 , 000 . 0-2 

■f wn WARRANTY 
I YR. ON ALL ITEMS!!! 

M.C. & VISA Accepted 

OWL-Services 

P.O. Box 116-D 
Mertztown. PA. 
19539 

PA Res lnclude6%Tax 

PA (2 15) 682-6855 
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USE YOUR DESKTOP COMPUTER AS A 
DISK DRIVE FOR YOUR M-100. 





on Snap-In ROM 




Try Disk + for 30 days. If you aren’t as 
excited as we are, return it for a full refund. 


When we designed Disk + we did it out 
of necessity. We wanted a way that we 
could just connect a Model 100 to our 
desktop computer with a cable and save 
files onto the desktop’s disk drive. We 
wanted it to be so simple to use it would 
be self-explanatory. 

Picture this. Disk + comes to you on a 
Snap-in ROM and a diskette for your 
desktop. You take a quarter and open the 
little compartment on the back of your 
Model 100. Then you just press the ROM 
into the socket. D/s/c+ appears on your 
main menu just like a built-in. 

You connect your Model 100 to your 
other computer using an RS232 cable 
(available from PCSG for $40). 

You just place the D/s/c + diskette into 
the desktop’s drive and turn on the com- 
puter. It powers up automatically and says 
“awaiting command” on your desktop’s 
screen. Then you just put the widebar 
cursor on the Model 100 main menu on 
Disk + and press ENTER. You are shown 
your RAM files arranged just like the main 
menu. 

To save a file to your other system’s 
disk drive, you just move the widebar cur- 
sor 1o the file you want to save and press 
ENTER. It is saved instantly with no 
further action. 

To look at the disk directory, you just 
press a function key on your Model 100. 
You see immediately the disk directory on 
your Model 100 screen, and it is arranged 
just like your Model 100’s main menu. 

To load a file from the diskette to your 
Model 100, you just move the widebar 
cursor to the file and press ENTER. The 
file is transferred to your Model 100’s RAM 
instantly. You can press F8 and go back to 
the main menu, and the file you loaded 
from diskette is there, ready to use. 


It is so nice to be able to keep your 
documents, programs (both BASIC and 
machine code) and Lucid spreadsheet 
files on the diskette, and bring them back 
when you need them. All files are ready 
to run or use with no changes or protocol 
by you. 

^ ^ WlfTT TE ft**! At It' m M- Wl ITI 

If you have access to a desk- 
top computer and don’t 
have Disk + , then evidently 
we have done a poor job 
telling you about it. 

All files and programs that you load or 
save, go over and come back exactly as 
they are supposed to be because of full 
error checking. This guaranteed integrity 
is really a comfort. Disk+ is wonderful in 
so many other ways. For example, you 
can do a “save all” of all your RAM files 
with just a touch of a function key. That 
group of files is saved on the diskette 
under a single filename with a .SD (for 
subdirectory) extension. Any time you 
want, you can bring back all those files at 
once, or just one or two if you like, again 
with one-button ease. 

D/s/c + takes up no RAM. That’s zero 
bytes either for storing the program or for 
operating overhead. 

What really excites most Disk+ users 
is text file cross compatibility. Your Model 
100’s text files are usable on your desktop 
computer, and your desktop’s text files 
become Model 100 text files. 

This means you can write something on 
your Model 100, and with Disk - »- transfer it 



instantly to your desktop and start using it 
right away on your bigger computer. Or 
the way we like to work is to type in a 
document on the desktop computer and 
then transfer it to our Model 100 with 
Disk+. Then we print out the document, 
beautifully formatted, using WRITE ROM. 

Disk+ works with just about every 
micro sold, from IBM PC and its clones, to 
all Radio Shack computers (yes, all), to 
Apple II, Kaypro, Epson and most CPM. 
Just ask us. More than likely, your comput- 
er is supported. 

Incidentally, hundreds of Model 100 
owners have gone to their Radio Shack 
stores and bought a color computer be- 
cause it is so low priced, and with Disk + 
they have an inexpensive disk drive. 

And if that weren’t enough, how about 
this: Disk + also provides cross-compati- 
bility between different computers like 
IBM, Apple or the Model 4 using the Model 
100 as the intermediary device. Quite a 
feature! 

The snap-in ROM is really great be- 
cause you can use other ROMs like Lucid 
or WRITE ROM. They snap in and out as 
easily as an Atari game cartridge and you 
never lose your files in RAM. 

Anyone who ever uses Disk- f- simply 
can’t do without it. But so many times we 
have had new users call us and say, 
“Wow! I had no idea when I ordered it that 
Disk + would be so fantastic. I just 
couldn’t believe that I could use my 
desktop computer’s disk drive with my 
Model 100 just like it is another main 
menu.” 

That’s why we sell Disk+ on a thirty- 
day trial. If you aren’t completely satisfied, 
return it within thirty days for a full refund. 
Priced at $149.95 on Snap-in ROM. Mas- 
terCard, Visa or COD. 


PORTABLE COMPUTER SUPPORT GROUP 

11035 Harry Hines Blvd., #207, Dallas, Texas 75229* 1(214) 351-0564 

PCSG provides hotline software support for the Model 100. Call us at 1-214-351-0564 
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A no-frills word processor that is so quick and 
simple the author calls it an ‘unprocessor’ 


The ‘Tandy Typer’ 

By Bruce Blair 


N ot too long ago I picked up my 
new Tandy 2000 and my first 
software package, a big, high- 
powered word processor. I wanted it 
so my two teenagers could use it for 
their school work. It turned out that 
the word processor was so complicated 
that even my wife didn’t want to use 
it for her college work; it looked like 
two or three months’ work before she 
could master all the keys and com- 
mands necessary to write a simple letter. 
She may have been correct, but we’ll 
never know because there was no way 
that she or the kids would spend that 
kind of time learning how to use any 
word processor. Since the computer 
was new and I needed to learn GW-BAS1C 
anyway, I decided I would program a 
word processor in BASIC to help me 
master the new language and the new 
computer. 

The result is a small word processor 
that is so simple to use it doesn’t even 
need an instruction book. I don’t even 
call it a word processor. I call it a word 
UNprocessor, and have named it the 


(Bruce Blair holds a bachelor's degree 
in electrical engineering. He is an 
electronics division manager and has 
been awarded several patents in the 
electronics field. He programs in several 
languages , but uses his Tandy 2000 for 
relaxation and therapy .) 


Tandy Typer. The basic goal was to 
duplicate an electric typewriter where 
possible and then add some functions 
that can only be done by a computer, 
i.e., document storage, full page editing, 
etc. Soon after I began, I came to realize 
that the basic instruction book that 
arrived with the 2000 was not an 
instruction book at all but an IQ test. 
Some of the guidelines and examples 
were either too brief or too complex 
to understand and, in some cases, 
exactly backward. If I was having 
problems with the book, then others 
would be too. It came to me that if 
I documented the program well, it 
would be of help to others who were 
battling their way through GW BASIC 
as well. 

In effect, I wrote a small BASIC 
program that can be used as a tutorial. 
It is full of tricks that took weeks to 
ferret out of the books and get working 
in a BASIC program that can push the 
interpreter into high gear. Even running 
in BASIC, there is no keyboard lag as 
text and commands are entered. The 
program runs in screen mode 0,0. That 
is the fastest mode on the 2000 and is 
used where only text is being written 
to the screen. The little bit of graphics 
on the first few lines can be deleted if 
you like; mostly it was to show ways 
that simple line drawings could be done 
in BASIC with just a few lines of code. 
The actual program begins on Line 1 10 
where a routine to alert the user that 
the printer needs attention is located. 
Once the printer is checked, the mode 


is set to text (screen 0,0) and the 
program starts. 

Each line of code has a comment that 
explains what that line is doing, and 
in most cases, that will get the idea 
across. There is one area where special 
mention might help in lines 170 and 200. 
This relates to perhaps the most poorly 
documented part of the handbook: that 
part dealing with using assembly 
language subroutines. 

To do assembly language subrou- 
tines, you first, need two things, the 
Programmer's Reference Manual (Cat. 
No. 26-5403) and the DEBUG utility 
located on the system disk and des- 
cribed in your DOS Handbook. The 
DRTA lines 170 and 180 are very short 
assembly language programs to scroll 
the text either up (Line 170) or down 
(Line 180). Both of the functions are 
part of the BIOS Services (Basic Input/ 
Output System) offered by MS-DOS 
and the 2000, and give the programmer 
simple ways to do very complicated 
things in assembly language. 

If you can follow assembly language 
for the 80186 microprocessor, read on. 
But if assembly language gives you a 
headache then skip over this part. This 
particular BIOS command is INT 10h, 
“video display.” For “scroll up,” the 
manual reads: 

Entry conditions: 

AH = 06h 

AL = number of lines to scroll 

CH = row of upper left corner of 
scroll window 

CL = column of upper left corner 
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of scroll window 

DH = row of lower right corner of 
scroll window 

DL = column of lower right corner 
of scroll window 

BH = attribute to be used on blank 
lines 

The only difference for scroll down 
is AH = 07h. Once the values are moved 
into the proper registers, an INT 10h 
is issued and the screen will scroll up 
or down. 

This is done with OPP-CODE using 
the DEBUG utility “assembly” mode. 
Get into DEBUG, type: R100 ENTER, 
the screen will show some numbers and 
you type the following: 

(See Figure 1.) 

The next step is to enter the “dump” 
mode of DEBUG, type: D100 ENTER. 


The screen will fill with numbers and 
letters. For this short program, only the 
first row is of interest. Look across till 
you find Cfi 00 00 ; that’s the machine 
code for RETF and tells you where your 
program ended. 

Copy down all the numbers up 
through CR 00 00. They are B6 01 06 
B9 00 00 BR 4F 17 CD 10 CR 00 00. 
To save space in Tandy Typer they are 
converted to decimal and become 
184,1,6, 185,0,0,186,79,23,183,7, 
205,16,202,0,0. These numbers are 
poked into memory by Line 190 and 
defined as SU and 5D in Line 200. If 
you follow this guide, short machine 
language subroutines will work; if you 
follow what the handbook says, the 
2000 will lose its mind, vanish into 
never-never land and you will have to 
re-boot. 


Figure 1. 


XXXX:0100 MOV AX, 0601 ENTER 

AH=6, AL= I scroll 1 

XXXX : 0103 MOV CX.0000 ENTER 

upper left corner of window is row 0, 


col 0 

XXXX :010G MOV DX.174F ENTER 

lower right corner to row 23, col 79 

XXXX: 0109 MOV BH,07 ENTER 

attribute 7=normal 

XXXX:010B INT 10 ENTER 

BIOS interrupt #10h 

XXXX:010D RETF ENTER 

end, return to caller 

XXXX: 0110 ENTER 

ends assembly mode 



Tandy 

Typer 

Tip 


Lines 320, 330, 360, 370, 410 
and 420 of TANDY. BAS contain 
graphics characters that do not 
accurately appear in the listing. 
To enter these characters from the 
keyboard, press and hold the alt 
key while entering the following 
codes. Release the alt key when 
you have entered the last digit of 
the code. For example, to enter 
the graphics code 219, you would 
hold ALT while typing 219 and 
then release ALT. 


For U type 
For £ type 
For ¥ type 
For a type 
For ii type 
For A type 
For U type 


ALT 124 
ALT 175 
ALT IBB 
ALT 200 
ALT 207 
ALT 21S 
ALT 219 


24 K Expansion RAM 

For the Model 200 
$150* each $275* for two 


8K Expansion RAM 

For the Model 1 0O & 8201 
$29, each $81, package of 3 




These Modules are easily user installable 
and they feature: 

Low Power CMOS Static RAM 
30 Day Satisfaction Full Refund Policy 
High Quality Sockets 


• Instructions Include 
Test Program Listing 

• One Year Warranty 


M/C, VISA, Check or Money Order 

Shipping-Add $1.50 UPS Ground 
or $4.00 2nd Day Air. 

CA Residents add 6% Sales Tax 



Cryptronics, Inc. 

11711 Coley River Circle, Suite 7 
Fountain Valley, CA 92708 
Phone: (714) 540-1174 
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This may seem like a lot of effort, 
but in BASIC the only way to shift a 
screenful of text up or down one line 
to make room for a new line, is to 
rewrite the entire screen. That’s so slow 
in BASIC that it will put anyone to sleep. 
In machine language, using BIOS, the 
screen shifts up or down before you get 
your finger off the key. Slipping in and 
out of machine language using the CALL 
statement is very easy once you get the 
code poked into memory, and just one 
look at what can be done using BIOS 
will set your imagination reeling. 

The rest of Tandy Typer is written 
in pure GW-BASIC and can be followed 
with the use of the comments on each 
line. Although Tandy Typer is straight- 
forward, I’ve used every trick I know 
to make the program run faster. I didn’t 
think that any BASIC language word 
processor could be fast enough to use, 
but on the super fast 2000 this one 
competes with most machine language 
word processors I’ve used. 

A word or two about the program 
itself is in order before anyone tries to 
use it. First of all, it is not intended 


to compete with the major word 
processors on the market today. It can’t 
merge, spell, wrap-around, search, 
repaginate or most of those neat things 
that a real word processor can do. This 
is a word UNprocessor and does only 
a few things that an electric typewriter 
can do. It has one sheet of paper that 
will hold 55 lines of print. When it’s 
full you either have to print it or save 
it under some name you supply at the 
prompt. It does bring up a list of 
documents already saved, so you don’t 
have to remember too much when 
saving or recalling. On the whole, it is 
user friendly, but one could spend a lot 
of time refining Tandy Typer so that 
it is friendlier. I’ll leave that to someone 
else. 

A brief description of the functions 
I included follows: 

ESC — Turns on or off the help 
prompt line 

Fl(INDX) — Advances the paper 
one line (no return) 

F2(Mar ) — Moves the left margin 
to the left 


F3( gin) — Moves the left margin to 
the right 

F4(TAB ) — Set or resets the tab at 
the cursor 

F5(PRN ) — Print the document 
(nondestructive) 

F6(OLD ) — Call an old document 
out of memory 

F7(END ) — Quit and save docu- 
ment (RUN to restart) 

F8(DEL ) — Removes an entire line 

F9(INS ) — Inserts a blank line 

F10(Mar ) — Moves the right 
margin to the right 

FI 1( gin) — Moves the right margin 
to the left 

F12(<EXP) — Returns cursor to 
left margin 

That’s not much, but at least you can 
remember them after one sitting. All 
the other editing keys work normally. 
I’ve had a lot of fun creating Tandy 
Typer and have removed all the bugs 
I could find; but no doubt there are 
more lurking around the corner. Sorry 
about that, but think of the experience 
you will get finding them yourself. □ 


The listing: 


1 SCREEN 3: COLOR £,)3: PALETTE 1,14: PALETTE 2, 11: PALETTE 3 , 10 : PALETTE 4,13 

2 PALETTE 4, 13: PALETTE 6 , 9 : PALETTE 7 , 15 : PI=3 . 14 : CLS : A$="T*A*N*D*YT*Y*P*E*R" 

3 CIRCLE ( 1)3)3 , 2 4)3) ,3)3,3,PI/2,3*PI/2,4: CIRCLE ( 525 , 24)3 ) , 3)3 , 3 , 3 *PI/2 , 3 *PI/4 , 4 

4 CIRCLE (115,24)3) ,3)3, 3, PI/4, 3 *PI/2 , 4 : CIRCLE (54£ , 24)3) , 3)3 , 3 , 3*PI/2 , PI/2 , 4 

5 CIRCLE (12)3,24)3) ,2)3, 3, PI/2, 3 *PI/2 , 4 : CIRCLE ( 52)3 , 24)3) , 2)3 , 3 , 3 *PI/2 , PI/2 , 4 

6 CIRCLE (13)3,24)3) ,2)3, 7, PI/2, 3 *PI/2 , 4 : CIRCLE ( 51)3 , 2 4)3 ) , 2)3 , 7 , 3 *PI/2 , PI/2 , 4 

7 LINE ( 10)3 , 21)3 ) - ( 115 , 2 1)3 ) , 3 : LINE ( 525 , 2 1)3 ) - ( 54)3 , 2 10 ) , 3 

8 LINE (10)3,27)3) -(115, 27p) , 3 : LINE (<525 , 270) - (540 , 270) , 3 

9 LINE (120,220) -(130,220) ,3: LINE (510 , 220) - (520 , 220) , 3 

10 LINE ( 120 , 2 60 ) - ( 130 , 2 60 ) , 3 : LINE (510 , 260) - (520 , 260) , 3 

11 DRAW M C7BM130, 220M200, 70R240M510, 220BM510, 260L380” 

12 DRAW M C3BM120, 262R400M550, 320L460M120, 262BM90, 3 20D30R4 60U30 n 

13 LOCATE 16,30: FOR 1=0 TO 8 : CIRCLE (1*40+160 , 280) , 15 , 3 , , , . 4 

14 PRINT MID$(A$, 1+1,1) ;: SOUND 47,. 5: NEXT I 

15 LOCATE 16,42: FOR 1=0 TO 8 : CIRCLE ( 1*44+142 , 300 ) , 17 , 3 , , , . 4 

16 PRINT MID$ (A$, 1+10, 1) ;: SOUND 47,. 5: NEXT I 

17 SOUND 7200, 5: LOCATE 2 3, 40: PRINT "Any key to start " ; : A$=INPUT$ ( 1 ) 

18 ' 2000 2000 2000 2000 2000 2000 2000 2000 2000 2000 2000 2000 2000 2000 2000 

2000 
2000 
2000 
2000 
2000 
2000 
2000 
2000 

000 2000 2000 2000 2000 

110 ON ERROR GOTO 130:LPRINT CHR$ ( 20 ) ; CHR$ ( 27 ) ; CHR$ ( 18 ) ; * set up to catch any 

120 WIDTH LPRINT 80 : GOTO 160 ’problems with the 

130 IF ERR=68 THEN CLS : LOCATE 12, 30: COLOR 18,0 ’printer at turn on... paper or 
140 PRINT "PRINTER NEEDS PAPER”; 'off line, etc 

150 SOUND 7200, 2: FOR 1=1 TO 5000 : NEXT I: RESUME 110 ’this repeats till fixed 
160 ON ERROR GOTO 1630 ’new error handeler 


20 ' 
30 ' 

2000 

2000 

##### 

# # 

# 

#### 

# # 

##### 

# 

# 

#### 
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# # 
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# 

# # ## 

# 

# 

# 

# # 

# 

# # 

# # 

# 

# # 

60 ’ 

2000 

# 

##### # 

# # 

# 

# 

# 

# 

# 

#### 

#### 

#### 

70 ’ 

2^ 

# 

# # # 

## 

# 

# 

# 

# 

# 

# 

# 

# # 

80 ’ 

<2000 

# 

# # # 

# 

#### 
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# 

# 

# 

##### 

# # 

90 ' 
100 

'2000 

2000 2000 2000 

2000 

2000 

2000 2000 

2000 

2000 

2000 2000 2000 2000 
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170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 

800 

810 

820 


DATA 184,1,6,185,0,0,186,79,23,183,112,205,16,202,0,0 
DATA 184,1,7,185,0,0,186,79,23,183,7,205,16,202,0,0 

FOR 1=65280 l TO 653111 :READ A:POKE I,A:NEXT I 'machine language code for 
SU=65280 1 : SD=65296 ! 'fast up and down scrolls 
SCREEN 0,0: DIM X$(56):COLOR 0,7:S=0 'go to alpha screen.. set up variables 


LM=10 : RM=70 : X=1 : B=0 : KEY OFF : CLS 

i 


x$- 

s— 

LM- 

RM- 

X-- 

P— 


-text array 
--help toggle 
: -left margin 
-right margin 
-line counter 
-position counter 


i b insert mode toggle 

' U$,U1$ line scale 

1 U3 $ help line text 

i U4 $ trap CHR$'s 

U3$="INDX UU Marugin £U Tab UUUUU PRN U OLD " 'help key line 

U3$=U3$+"U END U DEL UUUUU INS UU MarUgin £U<EXP< " 'called with ESC key 
U4 $=CHR$ ( 9 ) +CHR$ (27) +CHR$ (28) +CHR$ (29) +CHR$ (3)3) +CHR$ (31) +CHR$ (127) ' string 

FOR 1=1 TO 12 : KEY I , CHR$ ( 13)3+1) :U4$=U4$+CHR$ ( 13)3+1) : NEXT I 'to catch F keys 
X$ (0 ) =''uuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuu 'line to mark top of page 
X$ (0 ) =X$ (0 ) ' and show instructions 

COLOR 7,0: CLS: COLOR 0,7 

LOCATE 23,1: PRINT X$ (0) LOCATE 23,45:PRINT "ESC key for help"; 'print it 
LOCATE 24,1: PRINT SPACE$(80); 

U$="auuuAuuuuluuuuAuuuu2uuuuAuuuu3uuuuAuuuu4uuuuAuuuu5" ' position scale 

U$=U$+"uuuuauuuu6uuuuAuuuu7uuuuAuuuu¥":U1$=U$ 'of 80 spaces 

MID$(U$,LM,1)=CHR$(62) :MID$ (U$ ,RM, 1) =CHR$ (60) 'put margin markers in place 


X$ ( 1) =STRING$ (80,32) 

LOCATE 25,1: COLOR 15,0: PRINT U$: COLOR 0,7 


'fill first string with blanks 

'print scale 


'bell if over right margin 
'hold cursor on line 
'hold cursor at left margin 
'hold line count at 55 max 


COLOR 15,0: LOCATE 25,1: PRINT USING "## ";X?:COLOR 0,7:LOCATE 24,LM'prn In # 
IF POS (0) >RM THEN SOUND 7200,. 5 
IF POS (0) >79 THEN PRINT CHR$(29); 

IF POS (0 ) <LM THEN PRINT CHR$(28); 

IF X=56 THEN X=55:GOTO 470 
D=SCREEN (CSRLIN, POS (0) ): COLOR 15,0:PRINT CHR$ (D) ;CHR$ (29) ;: COLOR 0,7'cursor 
T$=INPUT$ (1) :A=ASC(T$) :P=POS (0) 'key board input 

IF A>3 1 AND A<127 AND B=0 THEN MID$ (X$ (X) , P , 1) =T$ : GOTO 550'catch normal key 
GOTO 560 'only a go-around 

PRINT T$;: SOUND 47,. 5: GOTO 470 'finish normal catch, insert in text 

IF A>3 1 AND A<127 AND B=1 THEN 770 'catch normal key in insert mode 

IF A=8 THEN 830 'catch backspace key 

IF A=13 THEN PRINT CHR$ (D) ? : GOTO 850 'catch enter key 

IF A=18 THEN 730 'catch insert key 

LOCATE 25,1: COLOR 15,0: PRINT USING "## " ;X; : B=0 : COLOR 0,7: LOCATE 24,P'prn # 
F=INSTR(1,U4$,T$) : PRINT CHR$ (D) +CHR$ (29) ; 'check F key string for possible 
IF F=0 THEN 470 'go back to input line if not a valid F-key 

' TAB ESC < — — > UP DN DEL FI F2 F3 'Subroutine list 

F GOTO 1160,990,690,690,910,940,800,1310,1060,1070 'subroutine line #'s 

'rest of F-keys 


ON 

» 


'more line #'s 
'any key not referenced is ignored 

'print it, go back for next 


F4 F5 F6 F7 F8 F9 F10 Fll F12 
ON F-10 GOTO 1110,1500,1340,1180,1520,1570,1040,1050,710 
GOTO 520 

' CURSOR CONTROL LEFT AND RIGHT 

PRINT T$ ; :GOTO 470 

i EXPRESS RETURN TO BEGINNING OF LINE 

LOCATE 24, LM: GOTO 460 'position at left margin 

' CHARACTER INSERT TOGGLE B=1 IF INSERT MODE 

IF B=0 THEN B=l: LOCATE 25,1: PRINT "INS" ;: LOCATE 24,P:GOTO 470 'set B 

IF B=1 THEN B=0 : GOTO 970 'reset B 

' CHARACTER INSERT MODE 

LOCATE 25,1: COLOR 15,0:PRINT USING "## " ;X; : B=0 : COLOR 0 , 7 : LOCATE 24,P'rst B 
X$ (X) =MID$ (X$(X) ,1,P-1) +T$+MID$ (X$(X) ,P,79-P) 'split line and insert T$ 

PRINT MID$(X$(X) ,P,80-P) ;: LOCATE 24, P+1: GOTO 470 ' reprent line 

' CHARACTER DELETE 

X$ (X) =MID$ (X$ (X) , 1 , P-1) +MID$ (X$ (X) ,P+1,79-P)+" " 'split line and delete 

PRINT MID$ (X$ (X) , P, 80-P) ; : LOCATE 24,P:GOTO 470 'reprint line 

' CHARACTER BACKSPACE 
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830 X$ (X) =MID$ (X$ (X) , 1 , P -2 ) +MID$ (X$ (X) ,P,80-P)+" " 'split^ and delete at cursor 

840 LOCATE 24, P-1 ‘.PRINT MID$ (X$ (X) , P-1 , 81-P) LOCATE 24, P-1: GOTO 470 reprint 

850 ' ENTER KEY — 

860 IF X=55 THEN 470 
870 IF X$(X+1)<>"" THEN 890 

880 X=X+1 : PRINT: X$(X)=STRING$( 80, 32): GOTO 460 
890 X=X+1 : PRINT X$(X);:GOTO 460 

900 » —SCROLL UP 7 Millillili &jl 

910 IF X$(X+1)="" OR X>54 THEN 470 ELSE CALL SU:X=X+1 ’scroll if not last line 
mm mriiip t a i • xj-PTMT 1 yr (y'i : : coto 970 ’print bottom line after scroll 


’don’t pass line 55 
’if not last line go around 
’new line, fill with spaces 
’old line just print it 


900 

■9l$ — „„ ... 

920 LOCATE 24,1: PRINT X$ (X) ;: GOTO 970 ’print 

94 ? i;'x:r?HES L 47 ?° WN "''' -, if first line go bade 

950 IF X<24 THEN CALL SD:X=X-1: GOTO 970 'if less than 24 lines , just scroll 

960 CALL SD: LOCATE 1 , 1 : PRINT X$ (X-24 )? :X=X-1 'lines above, scroll and print top 
970 COLOR 15,0: LOCATE 25,1:PRINT USING "## ";X;:COLOR 0,7:LOCATE 24, P. GOTO 470 

980 HELP LINE PRINT/UNPRINT "“T"“ 7II7IT77I 

990 IF S=0 THEN S=1:G0T0 1010 ELSE S=0: LOCATE 25,1: COLOR 15,0 'set or unset help 

1000 PRINT U$ ,* : COLOR 0,7:GOTO 1020 . 

1010 LOCATE 25,1: COLOR 15,0:PRINT U 3 $; :COLOR 0,7 print help ^ 1 S^ 

““I!-LEF? : md°rSt MARGIN CONTROL (F-2 , F-3 , F-10 , F-ll) — — — 

104 0 i : F LM<RM-5 THEN RM=RM-l:GOTO 1080 ELSE GOTO 470 'don't let margins cross 

1050 IF RM<79 THEN RM=RM+1 : GOTO 1080 ELSE GOTO 470 marqin on page 

TF tM> 1 THEN LM=LM-1: GOTO 1080 ELSE GOTO 470 'keep left margin on page 

1070 IF LM<RM THEN PRINT CHR$ (29) ; :LM=LM+1: GOTO 1080 ELSE GOTO 4 ^ u d °£ * 

TTS-U 1 S • MIDS f US LM , 1) =CHR$ (62) : MID$ (U$ , RM , 1 =CHR$ ( 60 ) . S-0 put into scale 

1090 LOCATE* ^5^1 : COLOR 15,0: PRINT U$ : COLOR 0,7: LOCATE 24 , Pt GOTO 470 ’reprint 
1100 ' - TAB CONTROL, SET IF NOT SET OR REMOVE IF SET— (F-4 ) margin 

1120 IF MID$(U$?P,l)ScHR$(24) THEN 1140 'if tab ^his s pot^ take it out 

1130 MID$ (U$ , P , 1) =CHR$ (24): GOTO 1090 no tab 

1140 MID$ (U$ , P, 1) =MID$ (Ul$ , P, 1) : GOTO 1090 

1160 A=INSTR^P+l”u$~CHR$ (24) ) : IF A=0 THEN LOCATE 24,P:GOTO J70 ^'find next tab 
1170 LOCATE 24, A: GOTO 470 lf none goback,else go mere 

1190 FOR 1=1 TO 10: CALL SU:NEXT I scroll up 10 lines to 

1200 LOCATE 16 , 1 : FILES "*.DOC" 'clear place tor 

1210 LOCATE 25,1: COLOR 15 , 0 : PRINT SPACE$ ( 80 ) ; 'clear space to print 

122? LOCATE 25 , 1 : LINE INPUT;" What name for file? A$ 'get new file name 
1230 IF A$<>"" THEN 1250 

1240 COLOR 0 , 7 : CLS: LOCATE 13 , 30: PRINT " GOOD-BY " ; : END ^no save 

11% ^Vf 4 ?'^ 0 ?r ' 8P:Y=1 ° Pe ’inen?Sfbuffe? 

1270 IF X$(Y)= H M OR Y~56 THEN LSET DOC$=CHR$ ( 126 ): PUT l,Y:CLOSE l:GOTO 129fl 
1280 LSET DOCS=X$ (Y) : PUT 1 , Y : Y=Y+1 : GOTO 127p ’no, put it on diSK 

1290 COLOR 0 , 7 : CLS : LOCATE 13,30:PRINT " ";A$;" IS SAVED. GOOD-BY " ®" d 


1300 


• (F-l) ; 


■INDEX 

1310 IF X=55 THEN 470 
1315 IF X$(X+1)<>"" THEN 1320 

1317 X=X+1: PRINT : X$ (X) =STRING$ (80,32): GOTO 1322 

1322 L0CATE P 25 N L COLOR" 15,0: PRINT USING "## ";X;:COLOR 0,7:LOCATE 24,P:GOTO 470 

1330 ’ OLD, CALL SAVED DOCUMENT FROM FILE (F-6) — 7"“T 

1340 FOR 1=1 TO 10: CALL SU:NEXT I ' V nr. 10 lines to 

1350 LOCATE 16,1: FILES "*.DOC" 

1360 LOCATE 25,l:COLOR 15,0:PRINT SPACE$(80); 

1370 LOCATE 25,1: LINE INPUT;" What name? " 

1380 IF A$<>" " THEN 1430 
1390 COLOR 0,7: X2=10 : X1=X 
1400 CALL SD: IF Xl<14 THEN: GOTO 1420 
1410 LOCATE 1,1: PRINT X$ (Xl-14 ) ; : Xl-Xl-1 

143? COL0R0 ^OPEN* «R"?1 , A$ V'?DOC"*80? FIELD 1,80 AS DOC$ :X=l' ( 1 identify buffer 
its? GE? T,i: T f iic^DO^I=126 E OR X=56 THEN CLOSE l:X=X-l:GOTO 450 ear -is X it end? 


'don't pass line 55 
'if not last line go around 
•new line, fill with spaces 
'old line just print it 


scroll up 10 lines to 
'clear place for document list 
1 clear line to print mesage 
A$ 'get name of file 

'null entry returns to typer 
' scroll back down 
'and replace text if 
' needed 

'this only happens if null entry 
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Printer Spoofef^P 
Memory Disk 
Expansion Port for 
Future Options 




The Ultimate Expansion for the Model 1000! 
TanPak ™ by Hard Drive Specialist 


I U *t w I 

TanPak ™ c " T s;™“ 

The TanPak ™ expansion board has been designed 
to allow expansion beyond the scope of the standard 
Model 1000. Seven of the most needed functions/ 
features have been combined into one package using 
only one expansion slot. Your remaining spaces are 
left free for future expansion needs. 

Seven Function/Features on One Board 
512K Memory Expansion 

Socketed and expandable to 512K. This is done by 
two banks of memory using either two 64K increments 
(128K), or 256K increments (256K or 512K). This 
allows a total of 640K in the Tandy 1000. 

Serial Port 

Using the same configuration as the Model 1000 
port you are assured of complete compatibility as well 
as being able to configure it as COM1 or COM2. 

Clock-Calendar 

Quartz-controlled for a high degree of accuracy 
featuring a battery backup. 

DMA 

The DMA (Direct Memory Access) is used on the 
Model 1000’s first memory card. It increases memory 
speed and is a must for hard drive operation. 

Printer Spooler 

Use part of your TanPak ™ memory as a printer 
buffer. Choose the amount of buffer space you need 
and stop waiting on your printer. 


Ordering Information 

Use our W.A.T.S. line to place your order via Visa, MasterCard, or Wire 
Transfer Or mail your payment directly to us. Any non-certified funds will be 
held until proper clearance is made. COD orders are accepted as well as 
purchase orders from government agencies. UPS ground is our standard 
means of shipping unless otherwise specified. Shipping costs are available 
upon request. Tandy and Radio Shack are trademarks of the Tandy 
Corporation. TanPak, and TanTel are trademarks of Hard Drive Specialist 
a division of Compukit Corporation. K 


Hard Drive Specialist 

16208 Hickory Knoll 
Houston, Texas 77059 
1-713-480-6000 
Order Line 
1-800-231-6671 


Memory Disk 

Use part of your TanPak ™ memory as a RAM drive. 
With a solid state drive you can store, retrieve, and 
sort data quickly and easily. 

Expansion System 

The TanPak ™ was designed with an expansion port 
that wfll allow upgrading with additional features when 
they become available. Some of the possible features 
are: a second parallel port, a second serial port, 
mouse, hard drive port, bubble memory, A/D, and D/A 
as well as many others. 

TanPak ™ OK 

Call for pricing on memory modules. 

TanPak ™ Secondary 

If you already have a Model 1000 memory board 
and do not wish to replace it, the TanPak ™ Secondary 
is for you. It features Memory up to 256K, 
Clock/Calendar, Serial Port, Printer Spooler and 
Printer Buffer. 

TanPak ™ Secondary OK $249. 

TanTel ™ 

Internal 300/1200 baud Modem for the Tandy 1000 
Supported by the DeskMate software packaqe. 

TanTel ™ $249. 


Features Include: 

Gold Edge Cards 
Pre-Tested and Burned In 
Full Documentation 
Supporting Software 
One Year Warranty 
Expandable to 512K 




Megabytes for Mini-Bucks 

Tandy 1000 Hard Drives 

by Hard Drive Specialist 
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Shop and compare. Hard Drive Specialist has been 
building hard drive systems for years and have sold thou- 
sands of subsystems to satisfied Radio Shack/Tandy cus- 
tomers. We use the latest state-of-the-art disk drives and 
controllers. Our drives all use buffered seek logic and plat- 
ed media to result in almost one-fourth the average access 
times found on our competitors drives. Plated media 
results in longer platter life and high resistance to head 
crashes not found on coated media drives. We utilize high 
quality construction throughout including heavy duty 
power supplies and gold edge card connectors. Internal 
drive systems include an interface card and a half-height 
hard drive that replaces the top disk drive in both size and 
power consumption. External units include an interface 
card, case, power supply and hard drive unit. All units re- 
quire a memory board with DMA such as the TanPak™ 
multifunction card, or a Tandy Board, Part #25-1004. 


Ordering Information 

Use our WATS line to place your order via Visa, MasterCard, or Wire Transfer. Or, mail your 
payment directly to us. Any non-certified funds will be held until proper clearance is made. COD 
orders are accepted as well as purchase orders from government agencies. UPS ground is our 
standard means of shipping unless otherwise specified. Shipping costs are available upon re- 
quest. Tandy and Radio Shack are trademarks of the Tandy Corporation. TanPak, is a trademark 
of Hard Drive Specialist, a division of Compukit Corporation. 


Hard Disk System Features: 

: All sizes rated after formatting. 

: One secondary drive may be added. 

: Error checking and correcting controller. 

: Software drivers included. 

: Buffered seek drives for improved access time. 

: Built in power up diagnostics. 

: Plated media for long disk life. 

: Gold connectors used throughout. 

: 1 year warranty. 

: Boots directly from Hard Drive. 

: Uses Tandy 1000 MS DOS. 


10 Megabyte Internal $ 549. 

20 Megabyte Internal $ 749. 

30 Megabyte Internal $1349. 

10 Megabyte External $ 699. 

20 Megabyte External $ 899. 

30 Megabyte External $1495. 


Hard Drive Specialist 

16208 Hickory Knoll 
Houston, Texas 77059 

1-713-480-6000 

Order Line 

1-800-231-6671 



146,0 

147j3 

1480 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1560 

1570 

1580 

1590 

1600 

1610 

1620 

1630 

1640 

1650 

1660 

1670 

1680 

1690 

1700 

1710 

1720 

1730 

1740 

1750 

1760 


X$ (X) =DOC$ 

LOCATE 24, 1: PRINT: PRINT X$ (X) ; : X=X+1 : GOTO 1450 
CLOSE 1: LOCATE 24, LM: GOTO 450 

i PRINT THIS DOCUMENT 

FOR 1=1 TO 55 : LPRINT X$(I):NEXT I : GOTO 450 

. LINE DELETE 

I=X: IF X$(X+1)="" OR X=55 THEN 470 


'no, send to text array 
'and then print it on CRT 
'last line, close file 

~ (F-5 ) 

'print first to last line 

- (F-8 ) 

'go back if last line 


X$ (I) =x$ (I+l) : I=i+i 'cycle through, move each line up one 

IF X$(I+1)=»" OR 1=55 THEN X$ (I) =SPACE$ (80) : GOTO 940 'blank last line 

GOTO 1530 'back for next line 

' LINE INSERT (F-9) 

I=X: IF X=55 THEN 470 'if bottom of page, go back 

IF X$ (I+l)<>'"' THEN 1=1+1: GOTO 1580 'find first empty line 

FOR 1=1 TO X-l STEP -1 : X$ (I+l ) =X$ ( I ) : NEXT I 'move each line down one 

X$ (X)=SPACE$ (80) : LOCATE 24,1 SPRINT X$ (X) LOCATE 24,LM:GOTO 470 'blank line 
GOTO 470 'return 

i ERROR CONTROL 

COLOR 15,0: LOCATE 25,1: PRINT SPACE$ (80) ;: LOCATE 25,3 'clear message line 
PRINT "Any key to continue. "? 'print first part of message 

IF ERR=53 THEN 1720 'find 

IF ERR=58 THEN 1730 'out 

IF ERR=61 THEN 1740 'what 

IF ERR=64 THEN 1750 'error 

IF ERR=68 THEN 1760 ' occured 

COLOR 0,7: ON ERROR GOTO 0 'return error handeling to BASIC 

END 'errors not handeled will end program 

BEEP SPRINT "FILE NOT FOUND" ;: COLOR 0 , 7 : A$=INPUT$ ( 1) : RESUME 1340 'old 

BEEP : PRINT "FILE ALREADY EXIST" ?: COLOR 0 , 7 :A$=INPUT$ ( 1) : RESUME 1180 'save 
BEEP : PRINT "THIS DISK IS FULL";:COLOR 0 , 7 :A$=INPUT$ (1) : RESUME 1180 'save 
BEEP : PRINT "BAD FILE NAME";: COLOR 0 , 7 :A$=INPUT$ ( 1) S RESUME 1180 'save 

BEEP : PRINT "PRINTER NEEDS HELP";:COLOR 0 , 7 :A$=INPUT$ (1) : RESUME 1500'print 
^ rraT* 


Protect Your Valuable 
PCM Collection With . . . 



DISTINCTIVE AND DURABLE 
PCM BINDERS 


T hese distinctive brown binders not only ensure that your 
magazines stay in mint condition, but they showcase your 
collection as well. Each binder is clearly embossed with the 
magazine’s name in gold lettering on both the front and 
the spine. They’re a handsome addition to any decor. 

Each of these handsome binders holds 12 issues of PCM 
and is only $7.50 (please add $2.50 for shipping and handling 
for each binder ordered). 

SPECIAL DISCOUNTS ON PAST ISSUES WITH THIS OFFER 

If you place an order for six or more back issues of pcm 
at the same time you order your binder(s), you are entitled 
to $1 off each back issue of the magazine, which normally 
sell for the single issue cover price. For an index to our 
back issues, and an order form, please refer to our “Back 
Issue Information’’ page (check Table of Contents under 
departmental listings). 


YES. Please send me sets of binders at $7.50 each (plus $2.50 shipping and handling for each binder ordered). 

If your order is to be sent via U.S. Mail to a post office box or to another country, please add $2. Kentucky residents 
add 5 percent sales tax. 

I also want to take advantage of the special savings of $1 off the single issue cover price for back issues with the 
purchase of a binder. (An order form from a recent issue indicating the back issues you wish to receive should accompany 
this order.) 


Name 


Address 


City State ZIP 

My check in the amount of is enclosed. (In order to hold down costs, we do not bill.) 

Charge to: □ VISA □ MasterCard □ American Express 


Account Number 


Expiration Date 


Signature 

Mail to: Falsoft, Inc., The Falsoft Building, 9529 U.S. Highway 42, P.O. Box 385, Prospect, KY 40059. 
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dBASE Tutor 

Feature 

1000, 1200, 2000 


Adding Reports and Labels 
to our Mailing List Program 


O ur very first dBASE II program- 
ming project is coming along 
quite nicely. Last month, we 
began the project by defining the 
problem and designing a system to get 
the job done. We then set up the 
database file and coded the first section 
of the system — the program for 
entering and editing names and 
addresses. 

Today, we will add the other two 
major portions of the mailing list 
system: a report program and a pro- 
gram to print labels. 

For those of you who may have 
missed the first part of this series, the 
structure and indexes for the database 
file appear in Figure 1; Figure 2 is the 
screen format file and Figure 3 is the 
add/ edit program. 

Report Program 

Fortunately, dBASE IPs REPORT 
FORMAT command provides a simple 
method for producing reports (see the 
October ’84 “dBASE Tutor”). 
REPORT FORMAT can handle most 
simple reports, such as the one we 
propose to do, but it does have its 
limitations. For instance, it cannot 
produce reports with more than one line 
per record, and it does not have the 
ability to automatically look up records 
in more than one indexed database 
(dBASE III does have the latter ca- 


pability). However, it will work for our 
application. 

If you were designing a report to be 
used by yourself or another person who 
is familiar with dBASE commands, 
your job would be finished after you 
design the report with REPORT FORMAT. 
Then, you could just open the database 
and index files with USE, turn the 
printer on with SET PRINT ON and print 
the report with REPORT FORMAT. Our 
application, however, is intended to be 
menu-driven and usable by persons 
unfamiliar with dBASE commands. 
Therefore, we will need to design a 
program to do the things that we would 
normally do from the dBASE dot 
prompt and add a touch of user- 
friendliness to the procedure. 

In addition to turning on the printer 
and printing the report, the report 
program should allow the user to print 
the list in either name or ZIP code 
order. It should also give the user the 
opportunity to abort the program 
before printing begins in case he or she 
accidentally selected it from the menu. 

The first step is to design the report 
format with, logically enough, the 
REPORT FORMAT command. We’ll call 
the report format MAILLIST.FRM. The 
format appears in Figure 4. For more 
information on creating report formats, 
see the October ’84 “dBASE Tutor.” 


By Danny Humphress 

Now on to the program! We’ll call 
it MAILLIST . PRG. The listing appears 
in Figure 5. Remember, don’t type in 
the line reference numbers. 

MAILLIST. PRG Line by Line 

The first six lines of MAILLI5T . PRG, 
like those in last month’s program, set 
up the operating parameters for 
dBASE. 

The eighth line displays a message 
on the screen at row 10, column 20, 
telling the user what the program is 
about to do. 

Lines nine through 15 ask the user 
if they want to continue. The DO WHILE 
loop in Line 10 causes the question to 
be repeated until the person answers 
with a 4 Y’ or an ‘N’; that is, the loop 
will run as long as ANSWER< >'Y' and 
AN5WER<>'N'. Line nine initializes 
the ANSWER variable as a single blank. 

Lines 16 and 17 simply clear the two 
previous messages from the screen. 

If the user answers ‘N’, the IF at lines 
1 9 and 20 will catch it and return control 
to the dBASE dot prompt. If this 
program had been run from another 
program, such as a menu, control would 
return to that program. 

Lines 23 through 30 are very similar 
to the above “yes/ no” loop. This loop 
asks the user about how he or she wants 
the list sorted. Depending upon how 
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THE TANDY 200 AND MODEL 
OFFER MUCH MORE THAN Jl 


Our accessories make them the only cor 


When we introduced 
the Advanced Technol- 
ogy Model 100, it 

quickly be- 
came the 
most highly- 
acclaimed 
lap-size com- 
puter ever. A battery 
or AC-powered com- 
puter with five built-in programs and 
a telephone modem that fits into a 
briefcase. Our Tandy 200 took this 
great idea a few steps further — a 
big easy-to-read 16-line by 40- 
character “pop-up” display, Multi- 
plan spreadsheet software, plus an 
alarm and calculator. 



But the story doesn’t end there — 
we back both machines with exten- 
sive accessories that help make 
them powerful desktop tools. 

New Low Price! 

Disk/Video Interface 

Turn your Tandy 200 or Model 
100 into a versatile disk-based 
home or office system with a Disk/ 
Video Interface — now only $499 
(26-3806, was $799.00 in Cat. RSC- 
14). It features a built-in 184K floppy 
disk drive, and a 40-character by 
25-line display with your TV or an 
80 x 25 display with a standard 
video monitor. You can even add a 
second internal disk drive. 


Thermal Ribbon Printer 

Use it anywhere! The TRP-100 
(26-1275, $299.95) works on batter- 
ies or AC power (adapter included), 
and prints on plain or thermal pa- 
per. The TRP-100 quietly prints 50 
characters per second. Produces 
bit-image graphics, too. 

Versatile Bar Code Reader 

Our Bar Code Reader (26-1183, 
$99.95) is an optical scanning de- 
vice that’s ideal for inventory con- 
trol, billing and couponing. Software 
drivers, callable from BASIC, allow 
you to read Universal Product 
Code, 3 of 9, Plessey and other bar 
code formats. 




100 PORTABLE COMPUTERS 
1ST COMPACT PORTABILITY 


iputer you’ll need — in or out of 


Get news, weather and sports, 
business and stock market informa- 
tion and more. Information networks 
open up a whole new world of appli- 
cations power. 

And when you’re on the road, 
you can bypass direct connection 
with our Acoustic Coupler. It’s a 
great way to keep in touch with 
your home office. And we even of- 
fer a briefcase and padded carrying 
case to make portability all it’s sup- 
posed to be. 

Come in Today! 

Stop by your local Radio Shack 
Computer Center and see both the 
Advanced Technology 24K Model 




Communications Power 

One of the 
most exciting 
features of 
the Tandy 
200 and 
Model 100 is 
the built-in 
modem that 
lets you com- 
municate 
with other computers over the 
phone line. Our Direct-Connect Mo- 
dem Cable comes with one free 
hour on both the CompuServe In- 
formation Network and Dow Jones 
News/Retrieval service. 


the office. 

100 (26-3802, $599) and 24K Tandy 
200 (26-3860, $999), as well as our 
complete line of accessories and 
software. You’ll find everything you 
need for professional, portable com- 
puting power— for your desk or on 
the road. 


Radio /hack 

The Technology Store™ 

A DIVISION OF TANDY CORPORATION 


Prices apply at Radio Shack Computer Centers 
and participating stores and dealers. Multiplan/ 
TM Microsoft Corp. CompuServe/Registered TM 
CompuServe, Inc. Dow Jones News/Retrieval/ 
Registered TM Dow Jones & Co., Inc. 


the user answers, ‘Z’ for ZIP, or ‘N’ 
for name, the proper index will be 
selected. Again, the loop will continue 
until the person answers with a ‘Z’ or 
an ‘N\ 

Lines 32 through 36 contain another 
IF routine. This routine, however, uses 
a new dBASE command — ELSE. In 
this case, if ORDERIN', then the MAIL 
file is opened with the MAILNAME 
index, else the MAIL file is opened with 
the MAILZIP index. The statements 
following the ELSE in an IF routine will 
be executed if the condition in the IF 
line is not true. 

Line 38 has our program tell the user 
that the printing has begun. 

Line 39 turns the screen display off 
so that the report will not appear on 
the screen. 

Line 40 is our old friend, REPORT 
FORM. This time we’ve added TO PRINT 
at the end to direct the output to the 
printer. TO PRINT is a special clause- 
supported REPORT FORM that will 
automatically route the output to the 
printer. 

Line 41 turns screen display back on 

Line 48 closes the file. 

Finally, Line 44 returns control to 
the dBASE prompt or the parent 
program. 


Now might be a good time to mention 
about how some program lines are 
indented. While these indentations are 
not necessary to the operation of the 
program, they make the listing much 
easier to read and understand. It is 
customary to indent the statements 
within a DO/WHILE loop and statements 
within an IF /ELSE'ENDIF routine. 

MAILLABL.PRG 

With the report program behind us, 
let’s move on to the label printer. 
dBASE II does not have a built-in 
command for printing labels as it does 
for printing reports. However, because 
of the programmability of dBASE, we 
can write our own program to do the 
job. 

The program, called MAILLABL.PRG, 
will use standard “one-up” mailing 
labels — only one label across. Most 
mailing labels are spaced six lines apart, 
so we’ll make the program conform to 
that standard. Since it is difficult to get 
the labels aligned in the printer the first 
time, we’ll allow the user to print as 
many sample labels as required to gain 
proper alignment. 

The listing for MAILLABL.PRG 
appears in Figure 6. 


The first 37 lines of MAILLABL.PRG, 
except for the text in Line 8, are exactly 
like the corresponding lines in MAIL 
LIST.PRG. They set up dBASE oper- 
ating conditions, tell the user what’s 
going on, and give the user a chance 
to get out of the program. 

Lines 38 through 60 are a loop that 
continues until the person answers ‘N’ 
(no) for printing sample labels. Within 
the loop, at lines 44 through 55, is an 
IF/ENDIF routine that will print a 
sample label if the user answered ‘Y’ 
(yes). 

Notice how the lines within this IF/ 
END are indented another three spaces. 
This, again, is done for clarity. 

Lines 45 and 46 turn the printer on 
and the screen display off so the sample 
label goes to the printer and not the 
screen. 

Lines 47 through 49 print three rows 
of X’s on the printer to show where 
the body of the label will go. 

Lines 50 through 52 print blank lines 
to move the print head down to the 
next label. The three lines of X’s and 
these three blank lines total six — the 
total number of lines on a label. 

When the user drops out of the 
sample label loop by answering ‘N’, 
dBASE moves on to the 59th line where 



PERFORMANCE IN YOUR PORTABLE 

ThinPock™ Battery/ A. C. Powered Peripherals include: 
PRINTERS 

ThinWrite: Dot matrix impacts'-: 40 and 80 column models 
ThinPrint Thermal dot mafnx - 40 and 80 column models 
ThinType Impact letter quality - 80 column model 

DISPLAY SYSTEMS 

ThinView: 80 x 25 LCD intelligent display terminal > 

ThmE ’ L: Electroluminescent backlight for Model 100 
T-hinVid: Video interface for Model 100/200 

MASS STORAGE 

ThinDisk 3 ’' 2 ' ' drived Compact, battery-powered 
ThinStore: Microcassette data and oral dictation storage 

INTERFACES 

Thml-L: HP (82166A) HP Ip parallel interface converter 
ThinMoc Macintosh to parallel printer interface 

ThmCom Serial interface for A sync; Bisync, SDLC Protocols 

ACCESSORIES 

ThinChargers Automobile and foreign current adapters 
ThinPower Add-on rechargeable battery packs (solar optional) 

SYSTEM INTEGRATION SERVICES 

Axanix provides custom design and packaging services for 
cpplicgnon specific requirements 

FOR MORE INFORMATION CALL 

(800) 821-7093 or (801) 582-9271 


The Portable Peripherals People 
417 Wakara Way 
Salt Lake City, Utah 84108 
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DON’T MISS 

THE LA TEST ADVANCE 


IN MODEL 100/TANDY 200 

SOFTWARE 


X-TEL" 


by the creators of 
TELECOMMUTER” 


■ Use TEXT while online in TELCOM; Download letters 
and upload a reply in one terminal session 

■ Exchange .CO, .BA and .DO files with other computers, 
bulletin boards, and information utilities 

■ Standard XMODEM error-checking protocol 

■ List and Kill Files online in TELCOM 


■ Compatible with Telecommuter and other desktop 
communications software supporting XMODEM 

Specify Radio Shack Model 100 or Tandy 200 computer 
Price: $50 on MS-DOS diskette or cassette 
MasterCard and Visa accepted. 

Please call or write for further information. 


Sigea Systems, Inc. 

19 Pelham Road 
Weston, MA 02193 
(617)647-1099 


SO SIMPLE 


September 1985 


it displays a “printing” message, turns 
the printer on and turns the display off. 

The loop in lines 63 through 71 
actually does the printing of the labels. 
It will continue to loop through, 
printing labels and skipping to the next 
record, until the EOF ( ) function is true. 
EOF( ) is a function that is internally 


maintained by dBASE. EOF ( ) is true 
when you have gone beyond the end 
of a file. DO WHILE .NOT. EOF ( ), 
therefore, would loop while you have 
not gone beyond the end of the file. 

All that remains to do now is to turn 
the printer off, console on, close the 
file and return to dBASE dot prompt. 


Next month we wrap up our mailing 
list system by putting the three pro- 
grams together into one menu-driven 
system. Until then, you might want to 
experiment a bit with the programs 
we’ve done so far. Try changing them 
around by adding fields, printing on 
different size labels, etc. Dive in! □ 
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store ' • to ANSWER 
erase 

§ 20,25 say 'Select: [A]dd [Eldit efXlit ' ; 
get ANSWER picture '!• L J , 

read 

clear gets 

§ 20,0 

if ANSWER* 'A' 

set format to MAILEDIT 
append 

set format to 
end if 

if ANSWER-' E' 

. Wsp™*) ' to SEARCH 

6 20,19 say ' Enter name : ' get SEARCH 
read 

clear gets 

store trim (SEARCH) to SEARCH 
find & SEARCH 
if #«0 

set^console o? " 0t fOUnd ' Pr6SS any ke y to continue, 
wait 

set console on 
loop 
endif 

set format to MAILEDIT 
edit # 

set format to 
endif 

if ANSWER- 'X' 
use 

return 

endif 


enddo 

Figure 4: 

PAGE R HEAD\NGUY/'N) E r MARG ™' L=LINE S/PAGE. W=PAGE WIDTH 11=10.11=132 

ENTER PAGE HEADING: Mailing List Report 
DOUBLE SPACE REPORT? (Y/N) N 
ARE TOTALS REQUIRED? (Y/N) N 
COL WIDTH, CONTENTS 

001 30, NAME 
ENTER HEADING: <Name 

002 30, STREET 
ENTER HEADING: <Street 

003 15, CITY 
ENTER HEADING: <City 

004 2, STATE 
ENTER HEADING: <St 

005 10, ZIP 

ENTER HEADING: <ZIP Code 

006 13, PHONE 

ENTER HEADING: telephone 
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1 

2 

3 

4 

5 

6 
7 

set talk off 
set colon off 
set confirm on 
set bell off 


erase 


/ 

8 

@ 10,20 say 'Preparing to print mailing 

list report. ' 

9 

store * ' to ANSWER 


10 

do while (ANSWERo 1 Y ' .and. ANSWERo'N') 


11 

store 'N' to ANSWER 


12 

€ 12,27 say 'Do you want to continue? 

'get ANSWER picture '!' 

13 

read 


14 

clear gets 


15 

enddo 


16 

§ 10,0 


17 

§ 12,0 


18 



19 

if ANSWERIN' 


20 

return 


21 

end if 


22 

. 


23 

store ' ' to ORDER 


24 

do while ORDERo ' N ' .and. ORDERo'Z' 


25 

store 'N' to ORDER 


26 

@ 12,22 say 'Sort the list by [N]ame 

or [Z]ip? ' get ORDER picture 

27 

read 

28 

clear gets 


29 

enddo 


30 

6 12,0 


31 



32 

if ORDERIN' 


33 

use MAIL index MAILNAME 


34 

else 


35 

use MAIL index MAILZIP 


36 

endif 


37 



38 

@ 12,34 say 'Printing...' 


39 

set console off 


40 

report form MAILLIST to print 


41 

set console on 


42 



43 

use 


44 

return 


Figure 6: 


i 

set talk off 


2 

set colon off 


3 

set confirm on 


4 

c 

set bell off 


6 

erase 


I 

8 

@ 10,23 say 'Preparing to print mailing 

labels. ' 

9 

store ' ' to ANSWER 


10 

do while (ANSWERo ' Y • .and. ANSWERO 1 N'.' ) 


11 

store 'N' to ANSWER 


12 

@ 12,27 say 'Do you want to continue? 

' get ANSWER picture ' ! ' 

13 

read 

14 

clear gets 
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15 enddo 

16 @ 10,0 

17 § 12,0 

18 

19 if ANSWERIN' 

20 return 

21 endif 

22 

23 store ' 1 to ORDER 

24 do while ORDERo'N' .and. 
store 'N' to ORDER 

@ 12,22 say 'Sort the list by [N]ame or [Z]ip? 
read 

clear gets 
enddo 


ORDERo ' Z ' 

25 

26 

27 

28 

29 

30 @ 12,0 

31 

32 

33 

34 

35 

36 endif 

37 

38 store ' ' to ANSWER 

39 do while ANSWERO'N' 


40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 


58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 


get ORDER picture 


if ORDERIN' 

use MAIL index MAILNAME 
else 

use MAIL index MAILZIP 


store 'N' to ANSWER 

@ 12,24 say 'Do you want to print a sample? ' get ANSWER picture 
read 

clear gets 
if ANSWER= ' Y ' 
set print on 
set console off 
? ' XXXXXXXXXXXXXXXXXXXXXXXXX ' 

' XXXXXXXXXXXXXXXXXXXXXXXXX ' 

' XXXXXXXXXXXXXXXXXXXXXXXXX ' 


7 

7 

7 

? 

9 


56 enddo 

57 @ 12,0 


set print off 
set console on 
endif 


@ 12,34 say 'Printing, 
set print on 
set console off 


do while .not. eof() 


NAME 

STREET 

trim (CITY) + ' , 


? 

? 

? 

? 

? 

7 

skip 

enddo 

set print off 
set console on 

use 

return 


' +STATE+ 


'+ZIP 


HS23 
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3 

Feature 

100 


to Screen 


A s is usual in computer program- 
ming, the justification for using 
machine language is speed. 
SMS (Screen to Memory to Screen) is 
a machine language routine for the 
Model 100 which can be called by a 
BASIC program to save a graphics screen 
to memory and later restore the screen, 
and perform both operations with 
gratifying rapidity. Absolutely anything 
which is displayed on the screen can 
be saved and restored using SMS. In 
its present version, it operates on the 
entire screen with no option to select 
a smaller portion. Two thousand bytes 
of RAM are required to store each 
screen, but you may have as many 
screens as will fit in available memory. 

In this article, BASIC programs are 
given which: 

• create and save the object code file. 
• illustrate the use of the routine to 
save multiple screens. 

• restore the screens using SMS. 

• restore the same screens using the 
PSET command to demonstrate 
the relative speed of the machine 
language routine. 

In addition, the Assembler source is 
provided and its workings discussed for 
those who would like to enhance the 
program or merely relocate it. 

Loading the Object Code 

Listing 1 is a BASIC program, titled 
SMSPOK, which will poke the machine 
language program into high memory. 

Before running SMSPOK, take the 
precaution of saving it and all other files 
to cassette or disk. Anytime you run 
a machine language program the first 


(John Teague is a systems analyst who 
has programmed in a variety of high- 
and low-level languages during his 13 
years in data processing. He maintains 
a complex love /hate relationship with 
the BASIC language.) 


By John F. Teague 

time, you risk losing the file in memory 
because an error in keying a single 
instruction can totally change the 
operation of the program. But this is 
no crisis if the files are backed up. 
Nevertheless, SMSPOK performs a check- 
sum on the data statements and will 
give an error message if the checksum 
is incorrect. In this case, the program 
is aborted even before any poking takes 
place. If you get the message that the 
checksum is incorrect, check the data 
statements and the value that is being 
tested for. 

SMSPOK also gives the option to save 
the object file to memory or cassette. 
Then the file can be loaded with the 
LORDM "'SMS" or CLORDM "SMS" com- 
mands. However, memory above 62855 
must first be reserved with the CLERR 
command. 

Using the Routine 

Once the machine language routine 
is in memory, the BASIC statement to 
save the screen to memory is 

CRLL 62855, 1, ma 

where ma is the starting address of 2000 
bytes of storage which you have 
reserved with the BASIC CLERR State- 
ment. To restore the screen, the entry 
is: 

CRLL 62855, 0,ma 

The only difference between the two 
CRLLs is in the second operand, the A- 
Register, which is zero to write the 
information from memory to the LCD 
screen and non-zero to read the infor- 
mation from the screen and store it in 
memory. Listings 2 and 3 illustrate the 
process. 

Listing 2 creates and saves two 
different screens of information. After 
Listing 1 has been successfully run, 
simply type and run Listing 2 to save 
the screens. 

Listing 3 alternately displays the two 
September 1985 PCM 59 



Figure 1. Organization Of LCD RAM 


DRIVER 0 

DRIVER 1 

8 PIXELS | 

BANK 0 

DRIVER 3 

DRIVER 4 

BANK 1 

BANK 2 

BANK 3 

DRIVER 5 

BANK 0 

DRIVER 7 

DRIVER 8 

DRIVER 9 

BANK 1 

BANK 2 

BANK 3 





DRIVERS 
4 AND 9 
HAVE ONLY 


^ 8 PIXELS STORED IN ONE BYTE 


40 COLUMNS 
OF PIXELS 
ALL OTHERS 
HAVE SO 


50 PIXELS 


screens that have been saved. Run the 
program and then press any key to see 
the next screen. CTRL C must be used 
to exit this program. 

Listing 4 performs the same function 
as Listing 3, except that it uses the BASIC 
PSET and PRESET commands instead 
of SMS. Listing 2 must have been run 
first. If you run Listing 4, be prepared 
to be patient. 

As written, SMS must be loaded at 
address 62855. If you have an assembler 
for the Model 100, you can use the 


source code in Listing 5 to relocate the 
routine or otherwise modify it. 

LCD RAM 

The actual bit patterns which appear 
on the LCD are not normally stored 
within the Model 100’s 32K of RAM. 
Yes, there is an area of 320 bytes that 
contains a record of the text characters 
on the screen and, yes, the PEEK 
command will identify the text char- 
acters. However, 320 bytes is not 
sufficient space to store all the possible 


bit patterns. Actually, 1,920 bytes are 
required. If you multiply 1,920 by 8 bits 
per byte, you obtain 15,360 bits. 
Similarly, if you consider that there are 
240 pixels horizontally and 64 pixels 
vertically that can be addressed with the 
PSET BASIC command and multiply 240 
by 64, you again obtain 15,360. Divide 
15,360 by 8 (bits per byte) and you 
obtain 1,920 bytes. This 1,920 bytes of 
LCD RAM is not part of the Model 
100’s 64 K memory space at all but is 
part of the LCD device. It cannot be 
addressed with PEEK or POKE com- 
mands, but it can be accessed indirectly 
through INP and OUT commands and 
their machine language counterparts. In 
order to do this, it helps to know how 
this LCD RAM is organized with 
respect to the pixels on the screen. 

The Screen is divided into 10 drivers, 
numbered from zero to nine (see Figure 
1). Each driver is further divided into 
four banks, numbered from zero to 
three. Each bank contains 50 bytes and 
each byte contains eight bits. Each of 
the bits corresponds to one pixel. If the 
bit is one, the pixel is on. If the bit 
is zero, the pixel is off. For Drivers 4 
and 9, only 40 bytes per bank are 
“connected” to pixels. This means that, 
in a sense, we are wasting 80 bytes of 
memory when we reserve 2,000 bytes, 
but it simplifies the logic somewhat. It 
is left as an exercise to the reader to 
make this memory saving enhancement. 

How SMS Works 

SMS uses several of the Model 100 
ROM routines. The heart of the SMS 
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Complete Accounting Software 

Including Payroll for $15 per module 


101 Profitable Reasons To Buy MCBS 
Accounting Software! 


General Features 


1 ) Menu Driven System 

2) Integrated or Stand Alone 

3) Simplified Installation 

4) Complete Audit Trails 

5) Data Files can be accessed by Lotus. 
dBase, etc.* 

6) Manuals on diskettes, print them on 
your printer. 

7) Modules can be purchased 
separately. 

8) Accounts and transactions limited 
only by disk space. 


General Ledger 


9) Supports multiple departments 

10) Flexible chart of accounts. 

1 1 ) Prints financial statements in 
flexible, user defined formats. 

1 2- Prints Income Statement and 

17) Balance Sheet by current month, 
current quarter, and 3 previous 
quarters. 

18- Prints Departmentallncome 

23) Statement and Balance Sheet by 
current month, current quarter, and 
3 previous quarters. 

24- Prints Budget Comparison 

25) Income Statement and Balance Sheet 
comparing Actual vs. Budget with 
variances and ratios. 

26 Prints Trial Balance and Chart 

27) of Accounts 

28) Prior Period Adjusting Entries do not 
impact current results. 

29) Data Entry screen displays 
beginning, current and ending 
balances as well as the last 10 
entries. 

30) System allows new accounts to be 
created during data entry. 

Accounts P cry able 

31) Provides for entry, updating and 
deletion of vendor information. 

32- Allows entry, editing and posting 

33) of payables, adjustments, 
cancellations and prepaids. 

34- Prints the Open Item S' Cash 

35) Requirements reports. 

36) Allows partial payments. 

37) Prints A/P checks 

38) Prints Check register. 

39) Prints the A/P distributions to the 
General Ledger 

40) Prints the vendor anaylsis report. 

4 1 ) Interfaces to MCBS’ General Ledger 
or may stand alone. 

Accounts Receivable 

42) Provides for entry, updating and 
deletion of customer infomation 

43) Allows entry, editing and posting of 
receivables, credit memos, cash 
payments. 

44) Allows up to 99 repetitive line items 
for fast invoicing. 

45) Prints the open item and aged 
receivables reports. 

46- Prints Invoices, Credit Memos 

48) and StatemenLs. 

49) Prints Sales Analysis. 

50) Supports Partial Payments 

51) Prints Invoice, Payment and Credit 
Memo Registers. 

52) Interfaces to MCBS’ General Ledger 
or may stand alone. 


Payroll 

with State & Local Taxes 

53) Provides for entry, updating and 
deletion of employee information. 

54- Handles hourly, salaried or 

56) commissioned employees on weekly, 
biweekly, semi-monthly or mothly 
pay periods. 

57) Calculates Federal, State and Local 
Taxes. 

58) Allows user to maintain all tax 
tables. 

59) Maintains payroll history. 

60) Calculates the payroll. 

61) Prints the payroll register, check 
register and deductions register. 

62) Prints payroll checks. 

63) Provides for after-the-fact payroll 

64- Provides W-2’s. 1099 s . and 941s 

67) S' prints quarterly earnings reports. 

Inventory 

with Order Entry & Purchase 
Orders 

68) Uses for LIFO and Standard Cost. 

69) Provides for Inventory item entry, 
updating and deletion. 

70) Provides for order entry and editing 
with inventory update during entry. 

71) Stock and non stock items. 

72) Handles purchases, returns, 
shipments and adjustments. 

73) Prints invoices, credit memos, 
picking tickets, purchase orders, 
price lists and shipping labels. 

74) Prints on preprinted forms or plain 
paper. 

75) Prints stock status report and 
purchasing advice reprot. 

76) Full back order retention. 

77) Quarterly, yearly and prior year 
inventory history. 

78) Performs book to physical analysis. 

79- Over 20 management reports 

99) including extensive Sales Analysis 
and Lost Sales Report. 

100- Interfaces to MCBS' General 

101 ) Ledger, A/R, A/P or may stand alone. 


Any Module For $ 1 5 ea. 
Or All 5 For $50 Total 

TO ORDER CALL: 

1 800 334 0854, Ext 826 
For More Information: 
call (7 13) 444 6269 


Accountants ONLY ... 

Accountfint 9 s Client 
Write-up System 

1 ) Designed for Accountants 

2) Allows multiple clients on same 
disk, accessed by client code. 

3) Allows new accounts or new 
employees to be entered from data 
entry screen. 

4) Supports multiple departments. 

5) Running balance shown on screen 
during data entry. 

6) Payroll entries made from same 

entry screen as other entries. 

7) Accumulates all payroll information 
and prints Quarterly payroll reports 
including 94 l’s 

8) Prints W-2's and 1099s. 

9) Produces client bill on a variety of 
bases. 

10) Produces more than 12 reports 
including Changes in Financial 
Position, Income Statement. Balance 
Sheet. Detailed General Ledger. 

11) Includes automatic report printing. 

$150 


All programs run on IBM 
(PCjr/PC /XT /AT), ATSKT. EPSON, 

TANDY ( 1000/1200/2000), TI, WANG. 
COMPAQ, CORONA, SANYO. 
COLUMBIA*, and MS-DOS machines. 

Requires 128K Ram, 2 Floppies or 
Fixed Disk, 80 Column Printer, MS- 
DOS. PC DOS 2.0 or later. 

* Computer & software names are 
trademark or registered by their respective 
manufacturers. 

MONEY BACK GUARANTEE! 


Service Contract 
Telephone consultation - S50/yr. 
Shipping charges 85.00 
Texas Resident add 6 l /*% Tax 
COD Charges $5.00 
Payment by Check, MC or VISA 


ATTENTION DEALERS//// Call or Write 
Now for the VERY BEST MARGINS (over 
50%) in the Industry. 


fMCBSl 


Micro Computer Business Services 

1 2703 Stuebner Airline Houston, TX 77014 


Complete Package - G L. A/P, A R, P/R. INV 
Individual Module G/ LPI A/PTI A RUP RGINVG 
Accountants' Client Write-up System 

Pay Method: Prepaid, Check Enclosed: 

MC, #. 

VISA, # — 

Expires Signature 


QTY X $ 50.00 ea - . 

QTY X$ 1 5 00 ea 

QTY X $1 50 00 ea 

Texas Residents Add 6 ,/ r% r 
Shipping Charges - 
If COD add $5.00 
TOTAL 


5 00 


Company Name 
Street/Number 
City 


. Contact 


State 


routine is the call to the ROM Routine 
at 29943 decimal. (Line 260.) Depend- 
ing upon the contents of the A-register 
and flags, this causes bytes either to be 
read from or written to the LCD RAM. 
This line is contained within the 
subroutine “CC” from lines 200 to 320. 
“CC” is called four times (once for each 
bank) from within the loop “OL” 
bounded by lines 370 and 520, which 
is in turn executed 10 times (once for 
each of the 10 drivers). 

Prior to calling 29943 decimal, we 
must set up the following entry 
conditions: 

A-Register: 

• Zero in order to write bytes to the 
LCD 

• Non-zero in order to read bytes from 
the LCD. The proper value is retrieved 
each time from RW, the read/ write flag. 
(Lines 240-250). The purpose of OR I 
instruction in Line 250 is to set the zero 


flag to correspond to the zero or non- 
zero contents of the A-Register, since 
the LDA instruction has no effect on 
flags. 

B-Register: 

0,64,128,192 to indicate bank 0,1,2 
or 3 respectively. (In “OL” loop at lines 
370, 390, 410 and 430). 

DE Register Pair: 

50 (decimal) to indicate the number 
of bytes to transfer. (Line 220). 

HL Register Pair: 

The address in memory from which, 
or to which, to begin the transfer. This 
is taken (in Line 230) from “MP” which 
is initialized in Line 100 and incre- 
mented in lines 280-310. 

Furthermore, the appropriate driver 
must be enabled (lines 200-210). “TP,” 
which is initialized in Line 330 and 


incremented in lines 450-480, points to 
a table in ROM which contains the 
appropriate bit patterns to enable each 
driver separately. 

Th ,? P roce ss is terminated when 
“TC,” which is initialized to 10 in Line 
350 and decremented in lines 500-510 
reaches zero (Line 530). 

Immediately before the exit, the 
keyboard which had been disabled in 
Line 270 is re-enabled (Line 530) via 
a ROM call. 

Notes on the Source Code 

The Source Code is given in the 
infamous Intel mnemonics. The 
assembler I used was downloaded from 
the Model 100 SIG on CompuServe and 
further modified by me, so I can’t 
guarantee that the exact syntax will 
work with your assembler. For exam- 
ple, the line numbers are not used by 
many assemblers and the use of “/” to 
indicate the beginning of comments is 


62915 

6292) 3 
62925 

6293) 3 
62935 

6294) 3 
62945 

6295) 3 
62955 


DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


5)3, 147, 245, 6, )3 
2,00, 153, 245, 6, 64 

205, 153, 245, 6, 128 

205, 153, 245, 6, 192 

205, 153, 245, 42, 151 

245, 35, 35, 34, 151 
245, 58, 147, 245, 61 
50, 147, 245, 194, 198 
245, 205, 60, 116, 201 


111 
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JrCIVi ,, BAR CODED LISTING 


The listing: BARSTR.BA 

0 REM BARSTR 5/8/85 
10 CLS 
20 G=60855 
30 FOR I=0TO1999 
40 A = PEEK (G+I ) 

45 GOSUB 500 
48 M=256 

50 FOR J=7TO 0 STEP -1 
60 M=M/2 
65 C=M AND A 
70 X=P+50*D : Y=J+8*B 
75 IF D>4 THEN Y=Y+32 

80^ IF C=0 THEN PRESET (X,Y) ELSE PSET (X 

90 NEXT J 

100 NEXT I 

110 A$=INPUT$ (1) 

499 STOP 

500 D=I\200 
510 R=I-D*200 
520 B=R\50 
530 P=R-B*50 
540 RETURN 


62 pcm 


The listing: LCSAVE.BA 

0 1 LCSAVE 5/7/85 

900 CLS: CLEAR 200,58855 

910 LOADM"SMS . CO" 

1001 PRINT§0 , " " ; 

1005 GOSUB 1200 

1010 CALL 62855,1,58855 

1020 A=73 

1021 CLS 

1030 GOSUB 2000 

1040 CALL 62855,1,60855 

1100 END 

1200 FOR X=0TO 239 
1205 Xl=X/20 

1220 Y=31*COS (XI) +32 

1221 PSET (X, Y) :X2=X 

1222 FOR J=1T05 

1223 X2=X2+5 : IF X2>239THENX2=X2-240 

1224 PSET (X2 , Y) :NEXT 
12 30 NEXT .-RETURN 

I= ^ T0 38:A$=A$+CHR$(A) :a- 

A+1:NEXT 

I= 1 T0 8:PRINT A$; : NEXT: PRINT" 

1234567" ; 

2005 RETURN 



M 1I III mi mill 
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BAR CO DED LISTING 



The listing: LC5TR.BA 


0 ' LCRSTR 5/2/85 
80 CALL 62855,0,58855 
90 A$=INPUT$ (1) 

100 CALL 62855,0,60855 
102 A$=INPUT$ ( 1 ) 

105 GOTO 80 
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YOU CHOOSE: 


Terminal Emulation Mode 

MLINK 

Crosstalk XVI 

Smartcom II 

Menu-driven Interface 

Yes 

Yes 

Yes 

Expert/brief Command Mode 

Yes 

Yes 

Yes 

Extensive Help Facility 

Yes 

Yes 

Directory-based Autodialing 

Yes 

Yes 

Yes 

Automatic Logon 

Yes 

Programmable Function Keys 

Yes 

Yes 


Multiple Modem Support 

Yes 

Yes 


File Transfer Mode 

Error Checking Protocol 

Yes 

Yes 

Yes 

Wildcard File Transfers 

Yes 

Yes 

Yes 

File Transfer Lists 

Yes 



XMODEM Protocol Support 

Yes 

Yes 

Yes 

Mainframe Versions Available 

Yes 



Command Language 

Conditional Instructions 

Yes 

Yes 


User Variables 

Yes 



Labels 

Yes 

Yes 


Fast Interpreted Object Code 

Yes 

Yes 


Program Run 

Yes 


Subroutines 

Yes 



Arithmetic and String Instructions 

Yes 



Debugger 

Yes 



Miscellaneous 

Remote Access 

Yes 

Yes 

Yes 

Electronic Mail 

Yes 



Unattended Scheduling 

Yes 

Yes 


Expandable Interface 

Yes 



CP/M Versions Available 

Yes 




MLINK 

The choice is easy. Our MLINK Data Communications System is the most powerful and 
flexible telecommunications software you can buy for your personal computer. And 
it's easy to use. MLINK comes complete with all of the features listed above, a clear and 
comprehensive 275-page manual, and 21 applications scripts which show you how 
our unique script language satisfies the most demanding requirements. 

Choose the best. Choose MLINK. 


Gl/ll 


Corporate Microsystems, Inc. 
P.O. Box 277 
Etna, NH 03750 
(603) 448-5193 


Please send me the following version(s) of MLINK: 

Tandy Model 1000/1200 (MS-DOS) 

Tandy Model 2000 (MS-DOS) 

Tandy Model 4 or 4P (CP/M Plus only) 

IBM® PC or compatible (PC-DOS) 

Send me more information 

Other versions are also available. 

Please call for current version information. 


Introductory offer - we pay shipping! 

Include $250.00 for each copy of MLINK. 

Outside North America add $15.00 (U.S.) 

Check enclosed MasterCard Visa 

COD (Registered checks or money orders only) 

Card # Exp. 

Signature 

Ship to: 

Name 

Address 

City/ State/ Zip 


MLINK is a trademark of Corporate Microsystems. Inc. Crosstalk XVI is a trademark of Microstuf. Smartcom II is a trademark of Hayes Microcomputer Products. IBM is a 
registered trademark of IBM Corp. PC-DOS is a trademark of IBM Corp. MS-DOS is a trademark of Microsoft Corp. CP/M is a registered trademark of Digital Research. 




probably not standard. However, the 
object code in Listing 5 can be relied 
upon. 

For more information on ROM calls 
and a discussion of the LCD hardware, 
see Hidden Powers of the TRS-80 
Model 100 by Christopher L. Morgan. 

The Next Step 

The ability to save and restore 
arbitrary sections of the screen rather 
than the entire screen is probably the 
most obvious and desirable enhance- 
ment. It might make possible some 
types of animation within limited 
memory. 

This problem could also be 
approached without modifying SMS by 
calculating where in the 2,000 byte area 
the sub-area is located. In the 2,000 byte 


area we’ve reserved for the screen 
image, the first line of the screen is 
distributed in a non-contiguous fashion 
thus: 

Bytes I- 50 

201-250 
401-450 
601-650 
801-840 

Bytes 841-850 don’t correspond to any 
pixels. 

The second screen line goes like this: 

Bytes 51-100 
251-300 
451-500 
651-700 
851-890 


Again, bytes 891-900 don’t correspond 
to pixels. 

I think you can see the pattern. With 
this information, you can address any 
area of the screen. For example, you 
can create an image using PSET, save 
it using SMS then pick off the subsec- 
tion of the screen in which you are 1 
interested from the 2,000 byte area. 
Later, when you wish to restore the 
small area, save the screen again, poke 
the small area(s) or use a machine 
language block move, and restore the 
screen. All three steps in machine 
language would probably be too fast 
to be observable. 

If you have questions or comments, 

I would be pleased to hear from you 
at 1681 E. Dorothy Lane #14, Kettering, 
Ohio 45429. □ 


Listing 5: Assembly Language ! 

100 

F587 

22 

95 

F5 


H0 

F58A 

32 

94 

F5 


120 

F58D 

CD 

5C 

76 


130 

F590 

C3 

BB 

F5 


140 

F593 

00 



TC 

150 

F594 

00 



RW 

isp 

F595 

00 



MP 

up 

F596 

00 




IQp 

F597 

00 



TP 

19 p 

F598 

00 




2 PP 

F599 

2 A 

97 

F5 

CC 

21 p 

F59C 

CD 

3B 

75 


22p 

F59F 

11 

32 

00 


230 

F5A2 

2 A 

95 

F5 


240 

F5A5 

3A 

94 

F5 


250 

F5A8 

F6 

00 



260 

F5AA 

CD 

F7 

74 


270 

F5AD 

CD 

5C 

76 

PW 

280 

F5B0 

2A 

95 

F5 


290 

F5B3 

11 

32 

00 


300 

F5B6 

19 




310 

F5B7 

22 

95 

F5 


320 

F5BA 

C9 




330 

F5BB 

21 

43 

76 

CM 

340 

F5BE 

22 

97 

F5 


350 

F5C1 

3E 

0k 



360 

F5C3 

32 

93 

F5 


310 

F5C6 

06 

00 


OL 

380 

F5C8 

CD 

99 

F5 


390 

F5CB 

06 

40 



400 

F5CD 

CD 

99 

F5 


410 

F5D0 

06 

80 



420 

F5D2 

CD 

99 

F5 


430 

F5D5 

06 

cp 



440 

F5D7 

CD 

99 

F5 


450 

F5DA 

2A 

97 

F5 


460 

F5DD 

23 




470 

F5DE 

23 




4 80 

F5DF 

22 

97 

F5 


490 

F5E2 

3A 

93 

F5 


5 00 

F5E5 

3D 




510 

F5E6 

32 

93 

F5 


520 

F5E9 

C2 

C6 

F5 


530 

F5EC 

CD 

3C 

74 


540 

F5EF 

C9 





SHLD , MP/ SMSSRC 4/30 **** 

STA,RW 

CALL AD30 300/TURN OFF KBD/CURSOR 
JMP CM 


NOP /TRANSFER TO OR FROM 

NOP /POINTS TO ENTRY IN TABLE 

NOP /FOR DRIVER ENABLE 

LHLD , TP /COMMON CALL 

CALL AD30011 /ENABLE LCD DRIVER 

LX I D, 00050 

LHLD , MP /POINTER TO MEMORY DEST 

LDA, RW/Load read/write flag 

ORI , 000/set or reset Z flag 

CALL AD29943/ Read or Write LCD Bytes 

CALL AD30300/TURN OFF KBD/CURSOR 

LHLD, MP 

LXI D , 00050 

DAD D 

SHLD,MP 

RET 


SHLD, TP 
MVI A, 010 

STA , TC/ OUTER LOOP COUNTER 

MVI B , 000/ OUTER LOOP 

CALL CC 

MVI B,064 

CALL CC 

MVI B, 128 

CALL CC 

MVI B, 192 

CALL CC 

LHLD, TP 

INX H 

INX H 

SHLD, TP 

LDA TC 

DCR A 

STA TC 

JNZ OL 

CALL AD29756 

RET 


=# LCD DRIVERS 
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Discover a Whole 
New World of TV 
Entertainment! 


User Installable! Over 100 Channels! 
^ Uncut Movies! Specials! Sports! 
News! Weather! Music Videos! 


Entire 

System 


■ Totally Automatic System With 10V2-Ft. 

Dish, Receiver and Wireless Remote Control 

■ Comes With All Accessories Needed for 
Complete Do-it- Yourself Installation 

■ Descrambler Ready 


U.L. 

Approved 


Handy Wireless Remote Lets You Change 
Channels, Control Volume and Fine-Tune 


grams, plus music videos, FM broadcasts and movies 
with provision for stereo, and 24-hour news coverage 
on both TV and radio. It all adds up to out-of-this-world 
TV viewing at a down-to-earth price. Come in today and 
discover how easy it is to enjoy satellite programming! 
Includes complete installation manual. 


Now you can enjoy it all! 24-hour non-stop entertain- 
ment that you simply can’t get from local TV, cable, and 
even video tape! You’ll see the hottest stars, recent un- 
cut and uninterrupted movies, the ultimate in sports 
coverage — and the best part is, there are no monthly 
fees to pay. You’ll see exciting family-oriented pro- 


(817) 825-4027 


NOCONA ELECTRONICS 


Box 593 • Nocona,TX 76255 


UPS Shipping 


A RADIO SHACK DEALER 


Factory 

Authorized 


Radio /hack 


DEALER 








Graphics 

Feature 

1000 


The Gallery 


T his month’s Gallery exhibit comes 
to us from Charles E. Moore of 
Forest, Va. 

The program, 3D-GRRPH, mathemat- 
ically generates a three-dimensional 
picture in graphics mode six on the 
Tandy 1000. The program is slow 
because of the time involved for the 
computer to make the calculations (it 
takes approximately 12 minutes to 
complete the display). You can change 
the screen modes and palettes to create 
some interesting effects. 

A check is on its way to Charles. If 
you would like to show your art work 
in The Gallery, send in your graphics 
program or a screen dump and .BIN 
file of your masterpiece to The Gallery. 
If your work is used, we’ll pay you $50. 

□ 


The Listing: 

IP CLEAR Ij3j3j2 ,,, 32768 1: DIM A(32) 

2J3 KEY OFF 

3^0 CLS: LOCATE 1 , 2j3 : PRINT" Contour Graphics By Charles E. Moore" 

4)2 LOCATE 2, 2)2: PRINT STRING$ ( 38 , ) 

50 LOCATE 5,22: PRINT" Line Density (Max=8) (Default=8) " ; : LD$=INPUT$ (1) 

60 LET LD=VAL(LD$) : IF LD<1 OR LD>8 THEN LD=8 

70 LOCATE 6,22: INPUT"Dot Density (Default=90) ";DOT 

80 IF DOT<10 OR DOT>100 THEN DOT=90 

90 LOCATE 8, 22: PRINT" * Select Viewing Angle *" 

1,0,0 LOCATE 9,22:PRINT"0 Degrees is from Overhead" 

110 LOCATE 10, 22 : PRINT " 90 Degrees is from Side" 

120 LOCATE 11 , 22 : INPUT"Angle in Degrees (Default=70) " ;A 

130 IF A<1 OR A>100 THEN A=70 

140 A=A*3. 14159/180 :S=SIN (A) :C=COS(A) 

150 CLS: SCREEN 6 
160 WIDTH 40 

170 PSET ( 1 , 1) : DRAW"C4 ; "+"R318 ; "+"D198 ; "+"L318 ; "+"U198 ; " 

180 PSET (10,9) : DRAW"c4 ; "+"r300 ; "+"D181 ? "+"L300"+"U181 ; " 

190 PSET (4 , 4) : DRAW'cl; "+"r311; "+"dl91 ; "+"1311 ; "+"ul91 ; " 

200 PSET (7 , 6) : DRAW'cl ; "+"r305 ; "+"dl86 ; "+"1305 ; "+"ul86 ; " 

210 FOR I=-4*DOT TO 0 

220 MAX=-100 : MIN=100 : X=I/DOT : X1=INT ( 30*X+ .5) 
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(Ill mfiRYITIflC INDUSTRIES INC 

800 - 231-3680 

Radio Shack TRS-SO’s ' 

EPSON PRINTERS 

People you Trust to give you the very best! 


• Lowest 
Discount 
Prices 

• Reliable 
Service 

Quality 

Products 


“World’s largest independent 
authorized TANDY Dealer” 

22511 Katy Fwy., Katy (Houston) Texas 77450 
(715)392-0747 Telex 774132 






TRS-8 



SAVE SALES TAX *PLUS DISCOUNT 


•TEXAS RESIDENTS ADD ONLY 4V e % 



TANDY 200-7 2 K 



FORT WORTH COMPUTERS 



WE ARE SERIOUS ABOUT SAVING YOU MONEY 


(Located 30 miles from Fort Worth) 

377 PLAZA • GRANBURY • NR FORT WORTH, TEXAS 76048 

CALL FREE: 1-800-433-S-A-V-E 


V 


Monday thru Friday * 9:00 a.m. to 5:00 p.m. 

(Order inquiries/Customer Service &) IN TEXAS: 817-573-41 1 1 
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1000 , 1200 , 2000 


The Power of 
Open Access 


By Marty Petersen 


Marty Petersen, 
formerly with 
Software Products 
International, gives us 
an insider's look at 
this powerful 
integrated program 


T his is not a intended to be a sales 
pitch for Open Access. Neither 
is it meant to be a technically- 
oriented discourse on the complexities 
of the program. What it is ... is just 
me, a person who has had a fair amount 
of experience using the program, 
talking informally to you, a person who 
perhaps is interested in knowing some- 
thing about the program without being 
overwhelmed by tons of dialog. 

Maybe you just bought Open Access 
and want some tips on how to get the 
most use out of it. Or maybe you’re 
just curious about the program and 
want to find out what it can do. If so, 
pull up a chair and I’ll tell you some 
things I’ve discovered. 

Open Access is classified as an 
“integrated” program, which simply 
means that it is several programs that 
combine to operate as one. In this case, 
six modules join forces; the functions 
of database, spreadsheet, graphics, 
word processing, time management and 
communications ally in a common 
environment that shares data and other 
facilities. 

Its primary program, or module, is 
the Information Manager. There are 
several nicknames that people use to 
describe this module . . . file manager, 
database manager and so forth. If you 
want to be accurate, it is a relational 
database manager. This means that it 
has the ability to work with more than 
one file, or database, simultaneously. 


This fact has powerful implications that 
most people do not realize. 

For instance, let us assume that you 
belong to some organization that wants 
to keep track of families. You would 
like to create a database that contains 
the family name, address, city, state, 
ZIP code and phone number, and then 
the names and birthdays of each family 
member. Sounds easy enough, doesn’t 
it? Well, when you get down to designing 
the fields for each element of informa- 
tion, how many fields should you set 
aside for family members? Should you 
allow for two children? Or five? Well, 
I have nine! If you allow for a large 
number, just to be safe, then that is 
wasteful use of valuable storage space 
(because not too many people have nine 
children). And if you chop it off at a 
small number, say three, then six of my 
children would be dispatched to 
oblivion. 

A better way to handle the problem 
is to create two files. The first would 
contain the common family information, 
such as the family name, address, and 
etc. The second file would contain the 
names and birthdates of each family 
member. There is no wasted space, 
because if a family contained only two 
persons, then only two records would 
be created. In my case, the computer 
would create 1 1 records. 

But most important of all, each file 
would contain one piece of information 
that is common to both. This is the 
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“link” that “relates” one file to another. 
In this example, you might be tempted 
to include the family name in the second 
file which would relate to the family 
name in the first file, but there may be 
more than one family with the same 
name, and the computer wouldn’t know 
what to do. (Imagine what would 
happen if it came across “Smith” or 
“Jones.”) 

A link that relates files should be 
something unique. A phone number is 
unique, isn’t it? If you include the phone 
number in each record of the second 
(members) file, then the family name 
in the first file would link or relate to 
the members’ names in the second file 
by a common phone number. 

They say that a picture is worth a 
thousand words, so here are some 
diagrams that hopefully illustrate what 
I just explained. “Single File” shows 
how the family information would have 
to be stored when the computer can 
work with only one file at a time. 
“Relational Database” shows how two 
files are linked together on a common 
field. 

1, personally, use a different approach. 
Open Accsss can link on a single field, 
but it can also link on two or more 
fields if they are tied together in the 
joining statement. What I have, in the 
family file, is a “family last name” field 
and a (head of) “family first name” field. 
In the members file there is a “members 
last name,” a “members first name,” a 
“family last name” and a “family first 
name” field. 


I tie the “family last name” to the 
“family first name” in the members file 
and link them to the “family last name” 
plus “family first name” combination 
in the family file. This approach has 
several advantages. First, it addresses 
the reality of the fact that family 
members do not necessarily have the 
same family name. Divorces and adop- 
tions are all part of life. Second, it 
allows me to create some fancy printouts 


“Open Access 
does windows! 
Very nicely, I 
might add.” 


in reports. There are times, for instance, 
when I want to print “Jack Jones” 
rather than “Jones, Jack,” or in a mail- 
merge operation I may want to use the 
phrase “Dear Jack” or “Dear Mr. 
Jones” rather than “Dear Jones, Jack.” 
By dividing the person’s name into two 
separate fields, you have more flexibility 
of control of how you want to print 
it out in a report. When you set up a 
database, particulary with names, you 
need to anticipate how you are going 


to report the information you are 
storing. 

Well, I promised you that I wouldn’t 
get too deeply technical, so let me talk 
about some other things you might like 
to know about the program. I know 
you’ve heard the phrase “we don’t do 
windows!”. But Open Access does 
windows! Very nicely, I might add. Just 
what is a “window” in computer 
language? Imagine a computer screen 
filled with information from top to 
bottom, like your desk loaded with 
paperwork. Let’s suppose that you want 
to make a quick calculation for a project 
you’re working on, so you take out your 
“four-banger,” lay it on top of your 
papers, perform the calculation, and 
then put the calculator away. If you 
drew a box around your calculator, that 
would be similar to a “window” on the 
computer. 

With Open Access , if you wanted to 
do a quick calculation, you would press 
the CALC function key. This would 
cause a calculator to appear on the 
screen, framed in a “window.” Using 
the regular keys on the keyboard, you 
would operate this calculator just like 
you would a real one. After you are 
finished, you press the Escape key 
which causes the calculator to disappear. 
Much in the same fashion as you work 
by stacking papers on top of papers on 
your desk, you can stack “windows” in 
Open Access by pressing function keys, 
use what’s inside the window, and then 
clear them by pressing “Escape.” 

As an example, a press of the HELP 
function key produces a “help” message 


SINGLE FILE — Method #1 — One record per family 


Filename: FAMILIES 

FAMILY LAST NAME 

FIRST NAME 

ADDRESS 

CITY 

STATE 

ZIP 

TELEPHONE 
#2 FIRST NAME 
#2 BIRTHDATE 
#3 FIRST NAME 
#3 BIRTHDATE 
#4 FIRST NAME 
#4 BIRTHDATE 


#“N M 

#“N” 


FIRST NAME 
BIRTHDATE 


Saves on number of records, but 
wastes space in members first 
name, birthdate area. 


SINGLE FILE - Method #2 - One 
record per member 


Filename: MEMBERS 

FAMILY LAST NAME 

FIRST NAME 

ADDRESS 

CITY 

STATE 

ZIP CODE 

TELEPHONE 

MEMBER S FIRST NAME 

MEMBER S BIRTHDATE 


Redundant, or duplicated infor- 
mation that must be carried in 
each record 


How many members should you 
allow for? 


Does not waste space in member 
first name, birthdate area, as does 
Method #1, but does waste space 
having to carry the family infor- 
mation (address, city, state, etc.) 
in each record. 
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RELATIONAL DATABASE 



One record per member 


Files are linked by a common field, such as telephone number. 


which is boxed in a window. The help 
message is relative to the specific 
location you are in the program. For 
instance, if you are in the database 
module, you won’t get any information 
about how to use the word processor. 
By using the arrow keys, you can scroll 
the help information up or down inside 
the window. The help information 
occupies a lion’s share of the program’s 
RAM memory requirements and, nine 
times out of 10, you can get the help 
you need without having to refer to the 
manual. A second press of the HELP 
key produces another window which 
defines every function key or other 
special key used by the program. 

There is also a window that lets you 
know the names of the files you have 
on disk (that’s what the SEARCH key 
is for), and there are windows that call 
for menu choices (the MENU key, of 
course). Each time you press an appro- 
priate function key a window appears, 
stacked and offset in much the same 
way as you would randomly stack 
papers on a desk, and each time you 
press Escape a window disappears until 
you are back to your original screen. 

Time for another regrouping. I find 
myself getting so excited when I talk 
about my favorite subjects that I forget 
that you might have something to say. 
Did you say you wanted to know 
something about the word processor? 
OK, let me tell you about that. 

As a software reviewer, I have used 
a lot of different word processors. A 
lot. It got to the point where I swore 
I would never learn how to use another 
word processor because I didn’t want 
to crowd my mind with the additional 
commands. But, when Open Access 
came along, I was pleasantly surprised. 
It makes use of the best of word 
processing philosophies . . . global 
settings when you need them, and in- 
text, override commands when you 
need them. It lets you decide which 
method of text-entry is the more 
comfortable to use. 

Most people who use the word 
processor make the mistake of not 
utilizing the fantastic features of the 
program. A typical scenario goes 
something like this: John wants to type 
a letter to Mary, so he enters the word 
processor, selects “create new document” 
as opposed to “read old document,” and 
then writes the letter. However, there 
are margins, justifications and print 
parameters (headers, footers, page 
numbers, etc.) to set up, so he probably 
spends more time setting up the doc- 
ument’s parameters than actually 


writing the letter. After printing the 
letter, he may save it as a document 
file, or he may not. 

Here is a better way to use the word 
processor which saves a lot of time in 
the long run. Make forms. That is, 
before you write a letter, or anything 
else, use the “create new document” 
option and create a form, called a 
“template.” For instance, you could 


“Most people who 
use the word 
processor make 
the mistake of not 
utilizing the 
fantastic features 
of the program.” 


create a template called “T-LETTER” 
(the ‘T’ stands for template to remind 
you not to destroy this file). As soon 
as you establish the file, select “Back- 
ground” and a background setup screen 
will appear. What this allows you to 
do is preset eight different paragraph 
formats, labeled ‘A’ through ‘H\ For 
instance, you may define paragraph 


style ‘A’ as having a left margin of 10, 
a paragraph margin of 15 (the paragraph 
margin is the setting that the first line 
of the paragraph will tab to), a right 
margin of 70, and be left-justified (that 
is, the left margin will line up and the 
right margin will be ragged, just as a 
conventional typewriter would type). 

You may want to set paragraph ‘B’ 
to have both left and paragraph margins 
of 20, a right margin of 60, and be both- 
justified (where both left and right 
margins line up). Can you visualize that 
this paragraph will be inset by 10 
characters on each side relative to 
paragraph ‘A’ and have that “typeset” 
or printed look? If you use your 
imagination, I’m sure you can think of 
all kinds of styles that you would like 
to define paragraph settings for. I like 
to use “owfdented” (as opposed to 
“indented”) paragraphs. This is where 
the first line of each paragraph starts 
to the left of the rest of the lines in 
the paragraph. It’s great for highlighting 
information you might like people to 
notice, such as in a sales brochure or 
resume. In additon to setting paragraph 
styles, you can define codes that take 
the drudgery out of typing long phrases. 
For instance, to type this article I have 
defined “ OA ” as standing for “ Open 
Access ” I just type “ OA .” Just think 
of what a lawyer could do by perhaps, 
defining ‘1’ to mean “the party of the 
first part”! 

At any rate, after you have defined 
all of your paragraphs, and then have 
set the printer parameters to your 
liking, save the file as “T_LETTER.” 
Now, whenever you want to write a 
letter, don’t “create new document,” but 
“read old document” named “T I FT- 
TER.” When it pulls into the computer, 
you will start out with a blank screen, 
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but all of your favorite margin settings, 
typing codes and printer parameters are 
preset for you. Before you type a 
paragraph, choose by letter ‘A’ through 
‘H’ the paragraph style you want to use. 

Don’t worry about choosing the 
wrong style, because if later you decide 
you want to change it, you can without 
having to retype your text. After you 
have printed your document and you 
decide you want to save it as a textfile, 
don’t save it as “TJLETTER” because 
that will destroy the template. Save the 
file under a new name, such as 
“MS022685” (Mary Smith — 02/26/ 
85). When you do a search of files on 
your disk, you will then see a file called 
“MS022685,” and you will notice that 
“T_LETTER” is still there for the next 
time you want to use it. Bear in mind 
that you can create hundreds of tem- 
plates, each with paragraphs, code 
words and printer parameters set to 
your liking for the particular document 
you have designed the template for. 

One of the criticisms of the word 
processor (an unjust one, I might add) 
is the fact that you can’t create large 
single textfiles. You can create a textfile 
that will print out to a dozen or so 
pages, but you can’t put the contents 


of a book into one file. Many authors 
claim that they can’t print out their 
manuscript in one shot. Well, the fact 
of the matter is, Open Access can print 
out an entire book with a single swipe 
of the PRINT button, by using a simpler 
procedure than most other word 
processors. 

You see, it’s a matter of analyzing 
work habits. The general scenario of 
printing a book goes something like 
this: First, the author writes the “pieces” 
of the book and saves them as small 
files. Maybe there’s a “Chapter 1” and 
a “Chapter 2” and so on. When he or 
she gets ready to produce the whole 
book, the thinking is to create a file 
called “book” and then copy “Chapter 
1” and “Chapter 2” into “book.” This 
is erroneous thinking. First of all, it is 
laborious and time consuming to copy 
small files into one large file, even if 
the word processor could handle it. 
Second, it is wasteful of disk storage 
space, and may not even be able to be 
accomplished. If “Chapter 1,” “Chapter 
2” and etc., take up more than half of 
the disk space, how is “book” going to 
be saved? 

Open Access has a better idea, which 
is to use a “batch” processing technique, 


where you create a file that lists all of 
the files you want to print. What you 
do is simply create a textfile called 
“book.” There is an embedded print 
command available in the word pro- 
cessor called “include.” It is meant for 
a lot of things, like including database 
files, spreadsheet models and graphs 
with your text. Anytime you want to 
include something that is on file 
someplace else, just enter “^include 
<filename>.” Well, this “include” 
command can obviously be used to 
include other textfiles, and the “include 
commands” can even be nested; that is, 
the file you “include” can have its own 
“include” commands. 

Getting back to the scenario, once 
you have “book” established, just say 
“^include chapter 1,” “^include chap- 
ter2,” and so on. There is no limit; and 
when you print “book,” you will print 
each of the subfiles in the order you 
specify. It’s fast, easy, doesn’t waste disk 
space, and doesn’t waste your time 
copying files. 

There are enough things about Open 
Access to tell you that it would take 
a book. Come to think of it, that’s 
probably why Open Access's documen- 
tation is so hefty. 053 
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MS-DOSsier 

J Feature 

1 

1000, 1200, 2000 


Use the ANSI. SYS device driver to 
configure your video display 


Exploring ANSI.SYS 


By Danny Humphress 


A fter a rather short introduction to MS-DOS system configuration last 
month, we are ready to move on to putting the CONFIG.SYS file to use. 
This month, we 11 explore ANSI .SYS, the ANSI standard console driver. 

ANSI.SYS 

Probably the most common MS-DOS device driver is ANSI. SYS. ANSI.SYS 
causes your computer’s console (the keyboard and display) to understand the 
codes used by terminals that follow the ANSI standard. Specifically, these are 
standard escape sequence codes used to reassign keys, change the display attributes 
and control cursor movement. Many programs use these ANSI codes because 
they are constant from one terminal or computer to another, regardless of the 
keyboard or video display used. 

The fact that many commercial programs require the ANSI . SYS driver is reason 
enough for having it installed in your configuration file (CONFIG.SYS). However, 
ANSI.SYS offers many features the non-programming power user can take 
advantage of outside of these commercial software packages. By redefining keys 
and changing the video attributes, you can configure your MS-DOS system to 
work as your very own creation. It’s these functions of ANSI.SYS that we’ll 
discuss today. 

ANSI Codes 

Each ANSI function code is a series of characters beginning with an “Escape” 
character (ASCII 27). These characters are simply sent to (printed on) the display. 
Instead of the characters being displayed on the screen, they are “caught” by 
ANSI.SYS and the specific operation is performed. 

The ANSI function for clearing the screen, for example, is ESC [2J. To clear 
the screen using the ANSI codes, you would send an ESC character followed 
by the three characters, [2J. 

If you’re a BASIC programmer, your first response might be to do something 
like PRINT CHR$(27) ; ~[2J" in BASIC. You would be on the right track, but, 
unfortunately, you can’t use the ANSI codes directly from basic. This is because 
BASIC bypasses the BIOS (the internal program that controls input/ output) and 
has its own way of handling the video display. 

You might try pressing ESC on the keyboard and typing [2J. Close, but MS- 
DOS does not display the ASCII code for ESC when you press the key; instead 
it cancels the command line you’re writing. Sorry. 
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So, the problem is that it’s hard to get an ASCII 27 
to display on the screen. Well, it’s not that hard. An easy 
way to do it is to store an ESC character and the other 
characters in a file, then whenever you want the ESC 
sequence to go to the screen, you could use the MS-DOS 
TYPE command. The following BASIC program will create 
a file called CLEAR with the ESC sequence to clear the screen. 
You only need to run it once. 

10 OPEN "CLEAR" FOR OUTPUT AS HI 

20 PRINT 81,CHR$(27) ;"[2J" 

30 CLOSE 

Now, back in MS-DOS, you could type this command 
to clear the screen: 

TYPE CLEAR 

Of course, you could also just use the MS-DOS CL5 
command, but this is a simple example of one of the ANSI 
commands. 

By chaining the filename in Line 10 and changing Line 
20 for the particular ANSI code you want, this BASIC 


“The fact that many 
commercial programs 
require the ansi .sys 
driver is reason enough 
for having it installed in 
your configuration file . 


program can be used to generate files containing any ANSI 
codes you desire. Remember, though, that you must go 
back to the MS-DOS level and use the TYPE command 
to send the file to the display. 

Screen Colors 

Let’s try something a little more exciting. Change the 
previous BASIC program to read: 

10 OPEN "MYSTERY" FOR OUTPUT AS ttl 

20 PRINT 81,CHR*(27) ;"[=3h"; 

30 PRINT 81,CHR$(27) ;"[34m"; 

40 CLOSE 

Now run it, return to MS-DOS and enter TYPE MYSTERY. 

If all went well and you have a color monitor, the DOS 
prompt will be blue and everything you type from now 
on (or until it’s changed back) will be blue. If you have 
a monochrome monitor on a Tandy 1200 or 2000, the text 
on the screen will be underlined or not there at all, 
depending upon the graphics card used. 

Line 20 of the program added the code to change the 
screen to the 80-by-25 color text mode (ESC [=3h). The 
next line changed the foreground color to blue (ESC [ 34m). 

Please don’t try to make heads or tails out of what these 
codes mean. There is no particular reason that ESC [34m 
changes the screen blue other than that’s just the way ANSI 
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wants it. A full list of ANSI codes can be found in the 
Programmer’s Reference Manual among other places. For 
your information, though, Table 1 lists some common codes 
for changing the display. 

One of the things I like to do with these little screen 
beautifiers is have a line in my AUTOEXEC. BfiT file that 
will automatically change the screen color to green. 
Something such as TYPE GREEN would work if GREEN 
contained the proper ANSI codes. The only problem with 
this is some programs change the screen attributes back 
to the boring white on black and you have to enter another 
TYPE GREEN to get your color preferences back. 


we are replacing one keyboard key With four characters, 
DIR and the ASCII 13. You can use as many characters 
as you like this way. 

Some of the special keys on the keyboard, namely the 
function keys, return two ASCII values instead of just one. 
The first character of these two-character keys is always 
an ASCII zero. The next character is a value in the range 
zero to 255. The Flo function key, as an example, returns 
zero and 68. This information can be found in the 
Programmer’s Reference Manual. 

To program the Flo key to DIR and ENTER, you would 
send the following ANSI command to the display: 


Redefine Keys 

As mentioned, there are ANSI commands that allow 
you to change the meaning of the keyboard keys. To do 
this you have to know two things: the ASCII code or codes 
generated by the key on the keyboard, and the ASCII code 
or codes for what you want the computer to do when you 
strike the key. 

The ASCII code for an uppercase ‘A’ is 65. The ASCII 
code for an uppercase ‘B’is 66. To tell MS-DOS to redefine 
the A key so you get a ‘B’ when it’s pressed, you would 
use the following ANSI command: 

ESC [65;G6p 

If you are using the above BASIC program to generate 
this code. Line 20 will look like this: 

20 PRINT ttl,CHR$(27) ; "[65;66p"; 

The 65 defines the key we are changing and the 66 tells 
MSDOS what we’re chaining it to. 

It’s unlikely that you would want to change the alphabet 
around like this, unless you’re making a Dvorak keyboard, 
so here’s a more practical example: 

ESC [4;"DIR";13p 

This ANSI command changes the control-d key 
sequence to DIR followed by an ENTER (ASCII 13). 
Whenever you press control-d, the computer thinks you 
typed DIR and pressed ENTER. 

There are a couple of things different about this command 
line. Instead of giving the ASCII values for DIR, we simply 
enclosed the string in quotes and let the ANSI. SYS driver 
figure the three ASCII values. The other difference is that 
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ESC [0;68; "DIR";13p 

Since the first value is a zero, ANSI. SYS knows this is 
a two-character key and that the second number is the 
second character returned by the key. The remaining 
characters, up to the p, are the new characters for the 
key. 

More ANSI! 

We’ve covered but a few of the available ANSI 
commands. Hopefully, these are enough to get you to the 
point where you can look at the charts in the Programmer’s 
Reference Manual and know what to do. 

In the August “MS-DOSsier,” we’ll use ANSI codes 
along with a new command, PROMPT, to change the MS- 
DOS environment to suit our needs, desires and moods. 
Sound interesting? □ 

Table I Common ANSI Codes 

ESC [ 2 J Erase the screen 
ESC [ l< Erase the current line 
ESC [ 0m Return to normal attributes 
ESC [ lm Bold characters 
ESC [ 4m Underlined characters 

(monochrome mode only) 

ESC [ 5m Blinking characters 
ESC [ 7m Reverse video 
ESC [ 8m Concealed characters 
ESC [ 30m Black foreground 
ESC [31m Red foreground 
ESC f 32m Green foreground 
ESC [ 33m Yellow foreground 
ESC [ 34m Blue foreground 
ESC [ 35m Magenta foreground 
ESC [ 3Sm Cyan foreground 
ESC (37m White foreground 
ESC [40m Black background 
ESC [41m Red background 
ESC [ 42m Green background 
ESC [43m Yellow background 
ESC [ 44m Blue background 
ESC [45m Magenta background 
ESC [ 46m Cyan background 
ESC [ 47m White background 
ESC [ =0h 40 x 25 monochrome mode 
ESC [ =lh 40 x 25 color mode 
ESC [ =2h 80 x 25 monochrome mode 
ESC [ =3h 80 x 25 color mode 

WKmMSSmmmBSM 
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Basic Bytes 



100, 200, 1000, 1200, 2000 


Be prepared for April 15 with these 
spreadsheet templates 

Preparing for the 
Tax Collector 


T he basic simplicity of spreadsheeting is brought home 
in a new book, 1-2-3 from A to Z, Elna Tymes and 
Tony Dowden, Hayden Books, 1985. This book 
includes 59 complete templates for Lotus 1-2-3. Many of 
these are simple examples consisting of making lists and 
finding subtotals and final totals. The next order of 
complexity deals with interest calculations which are not 
much more than multiplication. @IF( ) is used a lot in 
some sheets, @SUM( ) shows up frequently, @AVG( ) less 
so and @NPV( ) very infrequently. Divisions show up 
frequently since one is often looking for usage per time 
period averaged over some period or average cost per item 
when total manufacturing costs are known. Still, none of 
this is particularly complicated. 

A basic problem I have is finding spreadsheet tasks that 
even start to challenge the capabilities of spreadsheet 
programs. A finite element analysis of the stresses and 
deflections in a flat plate secured at two sides and loaded 
in the center might do. But, I just don’t have need for 
that information today and I doubt that many of you do, 
either. Repetition of simple structures characterizes most 
spreadsheets. 

We have talked in previous columns about REPLICATE 
and COPY commands. These work wonders in building 
the basic spreadsheet. Now think about repeating your basic 
template a number of times in a single spreadsheet. It’s 
not hard, but it does raise some point to think about that 


(Richard White has a long background with microcom- 
puters and specializes in BASIC programming. With Don 
Dollberg, he is the author of the TIMS database 
management program for the Color Computer.) 


By Richard A. White 
PCM Contributing Editor 

we have not touched before. We need an example which 
I just recently had in a bag over on my book shelves. 

How many of you save your sales slips so you can total 
your sales tax for the year to deduct from your income 
tax? That’s what I keep in the bag —a bunch of sales 
slips. Sometimes all that tax needs to be added up, so 
let’s do it in a semi-organized way. We could take each 
sales slip off the pile, write down the tax and put it on 
another pile; then add up all the numbers. Or we could 
build a budgeting spreadsheet, where each purchase is 
categorized and entered in its category. The program then 
might calculate monthly subtotals by category, compare 
these to the budgeted amounts and show whether we are 
over or under budget. Plus, this data helps in establishing 
future budgets. 

I have real problems with this. My computer budget 
would have to be negotiated with my wife, who is not 
particularly pro-computer. On the other hand, I am anti- 
garden-mulch, which causes her problems. She does not 
tell me how many bags of mulch she buys and I say very 
little about the new disk drives. 

An intermediate approach is to organize the data just 
enough in a spreadsheet to impress the IRS, if needed, 
and say that’s enough. I decided to group the data by month 
with subtotals and then get a year-end total. Being able 
to check the entries by the date would be required, as well 
as a brief purchase description. Curiosity got the better 
of me, so I included a total sale column. 

The strategy will be to build a template for one month, 
and then duplicate this monthly template a number of times 
to get part of a year into a single spreadsheet. 

Why only part of a year? There are limits to the number 
of rows a spreadsheet will permit. Users of Lotus or some 
other large spreadsheet don’t need to worry about this, 
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as publishers seem to be competing to put out the largest 
spreadsheet program possible. This is fine if you have 640K 
and dream about two megabytes. Those working with Lucid 
or Multi Plan in a Tandy 100 or 200 know that every little 
byte counts, so they live with limits. Lucid supports 255 
rows while MultiPlan supports only 99. Some of these rows 
will be tied up with monthly headings and totals. If you 
are going to save money by itemizing your sales taxes, 
you will probably have over 200 purchases requiring more 
rows than are available in a limited spreadsheet. Memory 
may be a limit, rather than row count, in larger 
spreadsheets. If you are using a larger sheet, try putting 
the whole year in. It won’t hurt to take the chance. If 
you do run out of memory in the middle of November, 
whip up a new template to finish out the year. 


Figure 1: One-Month Template 
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Now, the joker in the back of the room who was selling 
4K memory chips as antiques asks, “why not put two six- 
month templates side by side?” This might work, but not 
be as neat when we insert rows in months that have a 
large number of purchases while the adjacent month does 
not need these extra rows. 

The top portion of our template is shown in Figure 1. 
To simplify setup, I made the monthly template 15 lines 
long. This way, a month will start at either XI or X6- 
16 or 31, for example. Once you start using the template, 
this order will be lost when you insert lines, but by that 
time it will have served its purpose. 

The first order of business is to plan the column widths. 
The only column needing to be wider than the default nine 
characters is B for purchase description. I set this at 16. 
If you are working on a Tandy 100 or 200 you had best 
leave column B at nine characters so all four columns show 
on the display. Column A for the date, C for the Tax 
and D for the total sale can stay at nine characters. 

Next comes formatting. In column A, dates are to be 
neatly shown left justified under the heading. In a similar 
fashion, a T format is to be put on columns C and D. 

In some spreadsheets, one FORMATS individual cells 
and then REPLICATE or COPY those cells down a 
column. Some spreadsheets won’t FORMAT an empty cell, 
so put a space into the cell and then FORMAT it. Lotus 

1- 2-3 has a centering format which you can use rather than 
the left justification for column A. Once you have formats 
in cells A3, C3 and D3, use your REPLICATE or COPY 
function. Your starting range is A3 ... D3 and then the 
target range which is A4 . . . A 15. 

Labels can be typed in any time. Formats apply here 
and can be handled in a number of ways. Some spreadsheets 
accept leading spaces and you can manually add the number 
needed to place the label just so. Too many? Edit the line 
to take one or more out. Others won’t accept leading spaces, 
but you may have the centering option available or right 
justify the text with trailing spaces to move the label off 
the right cell boundary a space or two. In Figure 1, 
MONTH- and PURCHASE were added with leading 
spaces. TAX and TOTAL in row 2 were right justified 
as was MONTHLY TOTAL in B14. 

Finally, we enter the summation formula in cell C14 
and COPY or REPLICATE it to cell D14. Its Lotus 1- 

2- 3 form is @SUM(C3 . . . C13). 

The intention is for the user to type in the month and 
even year into cell B2 or its copies after the MONTH- 
that is in A2. You might also want to put the month in 
A14 so that row might read: 

[ A 3C B X C X D 3 

14— JAN ’85 MONTHLY TOTAL X.XX YY.YY 

Some spreadsheets let you use a formula to duplicate 
what you type into B2, say, A14. One form is 
@IF(@TRUE,B2). This works on both numbers and labels 
and copies whatever is in B2. Note that a formula +B2 
in A 14 will copy numbers but not text. 

That completes our template for one month of entries. 
You will need more than eleven lines most months. Put 
the cursor on row 1 4 or its equivalent in copies and INSERT 
however many additional rows you need. You also may 
need to COPY or REPLICATE a blank and formatted 
row of cells into the column A range for the new rows 


76 pcm 


September 1985 


ELECTRONICS 


TRS-80 Model 2000 by Tandy" 


MS-DOS Based 



TRS-80" Model 100 by Radio Shack 



Computer System 


256K MOD2000 W/MONO MONITOR 1319.00 

256K MOD2000 W/COLOR MONITOR 1629.00 

256K MOD 1200 HD 2 DR 1499.00 

128K MOD 1000 W/MONO 1 DR 839.00 

128K MOD 1000 W/COLOR 2 DR 1199.00 

256K MOD 1000 W/HARD DISK 1439.00 

24K MOD 100 PORT 399.00 

24 K MOD 200 PORT 679.00 

64 K MOD 4 2 DR 845.00 

512K MOD 6000 2DR 3099.00 

80 K MOD 12 2 DR 1199.00 

15 MEG HARD DISK 1329.00 

35 MEG HARD DISK 2059.00 

DMP 105 PRINTER 145.00 

DMP2200 PRINTER 1149.00 

DMP 120 PRINTER 249.00 

DMP 430 PRINTER 585.00 

DMP 2100P PRINTER 1019.00 

CGP 220 COLOR PRINTER 499.00 

DWP 510 PRINTER 999.00 

TRACTOR DWP 210 99.00 

TRACTOR DWP 11/510 159.00 

TRACTOR FEED DMP2100P 99.00 

PARALLEL PRINTER SWITCH 96.00 

PARALLEL PRINTER CONTROLLER 179.00 

PARALLEL PRINTER CABLE 29.00 

DISK VIDEO INTERFACE 399.00 


100% RS COMPONENTS NO FOREIGN DRIVES OR MEMORY FULL WARRANTY 
ALL RS SOFTWARE 20% OFF CATALOG PRICE 
CASHIERS CHECK OR MONEY ORDER MUST ACCOMPANY ALL ORDERS 

( 817 ) 825-4027 

NOCONA ELECTRONICS • box 593 • nocona, tx 76255 




inserted. Say you inserted six new rows. Cells A 14 . 
D14 become A20 . . . D20. The cells in the range C14 
. . . D19 now are not formatted. COPY A20 . . . D20 to 
the target range A14 . . . A19 to do the formatting. 

Now is the time to put some data into the template to 
make sure it works right. The first law of computing is 
There Are Always Bugs. It applies to spreadsheets as well 
as any other types of programming. It is most important 
to get this one right to avoid having the same errors show 
up in each copy. 

Now that things are right and you have cleared your 
test data out, it’s time to copy the one-month template 
a number of times to make the overall template. But, first 
we must observe the second law of computing. Save Early 
and Often. For some spreadsheet users this is a safety play. 
Others will need this file to build their complete templates. 

The Lotus 1-2-3 COPY command makes generating the 
full template a piece of cake. COPY A1 . . . D14 to A 16. 
Now we have two months’ worth of templates ending at 
row 29. Leaving row 30 blank like row 15, COPY A1 . . . 
D29 to A31. Now there are four. COPY A1 . . . D29 to 
A61 to complete a sheet for six months of data. One last 
task is to provide totals for this sheet and year-to-date 
totals. 


C A 3C B 

89- JUN ’ 85 MONTHLY 

90- TOTALS THIS SHEET 

91- TOTALS PREVIOUS SHEET 

92- YEAR TO DATE TOTALS 


DC C 3C D I 

TOTAL XX. XX YYY.YY 

XXX. XX YYYY.YY 

XXX. XX YYYY.YY 


Cell C90 contains the formula 
+C14+C29+C44+C59+C74+C89. This adds up all the 
monthly totals. Note the pattern X4+X9+X4+X9 . . . which 
results from our keeping 15 row increments for each month. 
Patterns like this make it easy to set up formulae from 
memory without having to go back through the spreadsheet 
to write down cell addresses. Patterns also help avoid errors 
since mistakes tend to stand out as something different. 

Cell C92 contains =C90+C91. Now COPY the range C90 
. . . C92 to D90 and it’s time to file it to disk. 


VisaCalc and some derivative spreadsheet programs lack 
a COPY command, but copies can be made using disk 
or tape files. Generally, these programs do not erase the 
existing spreadsheet when a new one is loaded. The 
procedure calls for inserting blank rows to move the existing 
sheet contents down enough to make room for the one 
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Figure 2: Example of One Month of Data in 
The Template 
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LAWN MOWER REPAIR 
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5.50 
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MARSH 

2. XX 

114.51 
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MEIJER 

0.42 

8.75 
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MEIJER 

0.04 

0.34 
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MCALPINS 

1.65 

31.62 

25 

MARSH 

1.28 

97.87 

26 

MEIJER 

0.25 

6.99 

MAY ’85 

MONTHLY TOTAL 

-jr 

699.03 


to be loaded. Our one-month template uses 15 rows 
including the blank row 15. INSERTing 15 rows above 
current row 1 will make room. 

Now, load the single month template. You did save it, 
didn’t you? It will overlay the new blank rows that you 
added making a two-month template. Check it out, and 
if all is well, save it to disk or tape. Now make two passes 
where 30 rows are inserted each time and then the two- 
month template is loaded. Your final task is to add the 
sheet and year-to-date totals and save the complete 
template. Figure 2 is an example of the sheet in use. Note 
that our nice 15 rows-per-month pattern has been destroyed 
as more rows were added in prior months. 

The concept of building a basic template and then 
repeating it over and over has wide application both at 
home and in business. Data may be grouped in a variety 
of different ways depending on reporting needs. Weekly 
and monthly summaries are common. In business, monthly 
summaries are combined to produce quarterly reports and 
these are compiled into year-end reports. The implication 
is that data must be transfered from one spreadsheet to 
another. 

VisaCalc pioneered data transfer through disk files, and 
most creditable spreadsheet programs provide this 
capability. Our year-to-date totals are candidates for such 
transfers. It’s true that for two numbers, writing them down 
and typing them into C91 and D91 of the new template, 
when it is started, would be easier. However, examples 
should be simple and easy to understand at the beginning; 
certainly transfer of two numbers qualifies on both counts! 

I will explain the Lotus 1-2-3 steps. 

Say, for instance, it’s the end of December and that our 
summary at the end of the second spreadsheet for the year 
looks like this: 

C A ]C B 3C C 3C D 3 

89- DEC ’35 MONTHLY TOTAL 35.82 952.82 

90- TOTALS THIS SHEET 154.87 3872.44 

91 - TOTALS PREVIOUS SHEET 

92- YEAR TO DATE TOTALS 154.87 3872.44 

We need to bring the totals from the previous sheet over. 
Load that sheet and move to the TOTALS THIS SHEET 
row. Key into Lotus, “ /, F, E.” You will need to specify 
the range, C90 . . . D90, as well as a filename, to save. 

To load data, the cursor must be positioned on the cell 
where the loading is to start before the keystroke sequence, 

“ / , F, C.” After you specify the filename, the data is loaded 
from disk. 

This is a somewhat simplified sequence, as different 
spreadsheets have different features and need additional 
information to complete a data transfer. 

t A IC B It C DC D 1 

89- DEC ’85 MONTHLY TOTAL 35.82 952.32 

90- TOTALS THIS SHEET 154.87 3872.44 

91- TOTALS PREVIOUS SHEET 182.65 5034.83 

92- YEAR TO DATE TOTALS 337.52 8907.32 

This method becomes quite useful in larger business 
spreadsheets where the same data is used in two or more 
spreadsheets, or where data in last month’s spreadsheets 
must be moved to new locations to be ready to enter this 
month’s activities. We will deal with this in the future. 

If you want to try this earlier, I would suggest you get 
the book referenced earlier, one for your particular 
spreadsheet or another on either Lotus 1-2-3 or VisiCalc 
that provides examples. nran 
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ACCOUNTING FOQMCROS is a 

integrated accounnn^progratns which 
meet professional standards, they're 
fast and easy to use, with Complete in- 
structions. Our manual (shown %ove) 
also includes helpful information*^ 
bookkeeping and computers. 

GENERAL LEDGER $t25 

Allows up to 1,000 accounts & 1,000 
transactions/month. Retains mo/end 
balances for Last year. This Year and 
Forecast. Includes Cash Disburse- 
ments, Cash Receipts and General 
Journals. Reports include Balance 
Sheet, Income Statement, Annual 
Summaries and Journal Reports. 

ACCOUNTS RECEIVABLE ... $125 

Allows up to 2,500 customers and 1,000 
invoices per month. Invoicing can access 
Inventory Module. Keeps customer 
names and addresses. Invoice prints on 
plain paper or any pre-printed form. 
Statements can be printed at any time. 


Try all 5 programs above (GL, AR, AP, 
IN, PR). Order our DEMO DISK for 
$18.00 (includes shipping). Condensed 
versions of the programs give you the 
"feel" of data entry and access. Includes 
sample reports and instructions. Specify 
machine. 


MYROLL $125 

Will handle up to 100 employees with 
six deductions per employee. Deduc- 
tions may be determined as fixed dollar 
amounts or percentages, or referred to 
a table for automatic look-up. Tax tables 
are easily entered, or purchased sepa- 
rately. 

SET OF FIVE .. — $465 

SETOFFOUR $ 395 

SETOFTHREE $ 325 


TRASHMAN (NEW) ... ...... $145 

The "Catch-All" program. Files any 
type of information for quick access. 
Name or subject oriented with 15 lines 
of notes per name. Use TMAN as a 
mailing list, filing system, notebook, 
etc. Can be used alone or with data 
from our other programs. 

Try TRASHMAN (only) DEMO ..... $16 

HOWTO ORDER: Please specify machine 
and disk format. You can pay by check, 
by VISA or MasterCard (we need your 
expiration date and card number), or by 
UPS COD (add $2.50 COD charge). Our 
price includes shipping. Minnesota resi- 
dents, add 6% sales tax). We ship most 
orders the same day. 
or ORDER BY PHONE: 612-339-2521 


INVENTORY $125 

Allows up to 4,000 parts. Keeps 3 
month history of unit sales as well as 
year to date. With AR, can be used as 
point of sale system (prints invoices, 
handles cash). Reports include Inven- 
tory Value and Stock Report, Internal 
and Customer Price List. 


RUN ON MOST CPMAND MSDOS 


125 North First Street 
Minneapolis, MN 55401 
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Omniterm 2 Communications Software 
Called ‘The Greatest’ 


Omniterm 2 has all the telecommuni- 
cations features I could ever want, and 
a few more I didn’t even realize were 
possible: a scroll back option for those 
times I’ve been on a new BBS (Bulletin 
Board System) and couldn’t remember 
their command list, a color program 
(for those of us who are RGB snobs), 
XMODEM protocol (to download 
non-ASCII files), a simple-to-use menu 
driven program (so I wouldn’t have to 
refer back to the manual) and a way 
to get back into DOS without breaking 
the connection with the host computer 
(to check the exact name of the file I 
plan to upload). 

I was impressed with the on-screen 
clock and stopwatch feature (to tell me 
how long I’ve been connected to a $6 
per hour service), easy setting of RS- 
232 parameters for several types of 
telecommunication, re-dial feature for 
those times when my favorite system 
is busy, programmed keys for passwords 
and user names, and a way to dial 
remote hosts using my alternate long 
distance service codes. 

This non-copy protected program 
works well on a floppy system, such 
as the Tandy 1000 or 2000, and on a 
hard disk system like the Tandy 1200. 
Version 6.04 for the 2000 runs in 
monochrome on the color monitor and 
requires 256K RAM, but 5.04 for the 
1000 and 1200 operates in color and 
needs only one drive and 128K. 

Included with the program are 
sample file settings for The Source, 
Dow Jones News Service, CompuServe, 
Delphi, and Newsnet. There are also 
instructions for direct connection to a 
XENIX or UNIX multi-user computer 
system at 9,600 Baud. The manual has 
a chapter on “Getting Started” and ten 
minutes after unwrapping the software 
I was online with CompuServe. 

When Omniterm 2 is activated from 
DOS, a screen with the logo appears, 
called “Smart Terminal Mode.” Using 
the F! function key gets into the options 
menu. I tested the software using a 
Rixon 212A, and a Hayes 1200 modem 


which required a simple DIP switch 
change. With the Hayes, I dialed 
directly from the options screen, but 
with the 212A in “Rixon mode,” I 
needed two carriage returns to activate 
the modem from the smart terminal 
mode. 

The five terminal emulation choices 
are TTY or “dumb terminal,” a DEC 
VT100, DEC VT52, customized for 
special terminal characters or an 
automatic answer host. The echo/ line 
feed mode can be set for full or half 
duplex, or customized for unusual echo 
and line feed combinations. 

Disk functions are accessible from 
DOS without losing data from the host 
computer. The disk directory can be 
viewed, files erased, a file displayed, the 
default drive changed, and the directory 
path may be changed. 

File send and receive functions allow 
a choice of character-by-character 
transmission such as ASCII or the 
XMODEM protocol. RS-232 options 
change Baud rate from 50 to 19.2K, 
data bits from five to eight, one or two 
stop bits and parity from none to even / 
odd/mark or space. Errors are tracked 
and explained, RTS' and DTR are 
turned on or off and an RS-232 adapter 
may be selected for any of four serial 
ports. 

The phone number directory sets up 
a separate file with customized com- 
munications settings for each BBS, 
remote computer or online service. 
Macro keys are defined for answer 
back, user name, or other commands. 
Omniterm 2 also adds a comment line 
with every file setting, which is most 
useful for making notes about the 
peculiarities of each system. 

The automatic dial and logon feature 
is simple to use. A dialing prefix is 
defined to ready the modem to dial the 
number. The suffix instructs the modem 
that the phone number has been entered 
and to start dialing. Examples of prefix 
and suffix commands for most popular 
modems are given in Appendix F. 
Watch out for the Hayes ATDT prefix, 
however. The dialing prefix must be in 


uppercase letters. The program does not 
automatically convert lowercase, and if 
capital letters are not used, the Hayes 
will not auto-dial. When transmission 
is ended, the line hangs up. 

Up to 64 K of the available memory 
is available in the scroll back buffer, 
the file receive buffer holds another 25 
percent of free memory, and the rest 
is for the printer buffer. If the printer 
or file receive buffers reach capacity, 
Omniterm 2 sends a pause to the remote 
system. 

When writing to disk, the program 
opens a file, writes to it and closes the 
file, rather than putting additional data 
in an already-open file. In the case of 
a power failure or telephone transmis- 
sion problem, the data in the file is 
recoverable as far as the last buffer 
write. Most communications software 
I’ve used doesn’t have this nifty feature. 

Omniterm 2 has a great option for 
downloading XMODEM files. After a 
filename is entered, a prompt warns if 
another file with the same name already 
exists. You can replace the old file, 
append with the new information, or 
quit and choose another filename. 

The program receives one 128- 
character block at a time, and checks 
for errors in transmission. After the 
data has been successfully received, the 
file is saved to disk, the program beeps 
and returns to the main menu. Appendix 
G has an excellent explanation of the 
mysteries of Christensen or XMODEM 
protocol. 

With an auto-answer modem, Om- 
niterm 2 allows unattended host oper- 
ation. Those who have wanted to be 
the sysem operator of their own BBS 
can do it with this program. When a 
remote computer calls, the program 
detects the call and prints a message 
set up in the answer back string. The 
caller is asked for a password, and after 
three incorrect tries, Omniterm 2 
disconnects the caller. 

After the calling computer is accepted, 
a remote host menu appears, giving the 
caller options to send or receive with 
XMODEM or with ASCII, a disk 
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Software included, transfers from bank to bank. Works like main 
menu! Includes powerful RAM Basic that lets programs store 
and access data from any other bank. 


PCSG says: Satisfaction guaranteed or your money back 

within 30 days 


As amazing as it seems you can up- 
grade your Model 100 to 128K of RAM 
in just 60 seconds. 

It comes to you right out of the box 
looking just like the picture. You just open 
the little compartment on the back of your 
Model 100 with a quarter and it just pushes 
right into place. You can then put the cover 
back in its place. 

You then have 4 banks of RAM of 
32K each. The additional three banks 
also work just like your Main Menu. 

You push a function key and you are 
in the second bank. Push again and you 
are in third, again, then fourth. Press it 
once again for your original bank. 

It has its own built-in NiCad battery 
that recharges right from the Model 100 
and its guaranteed for a full year. 

What is really great is that you can 
copy a file from one bank to another with 
just a function key. 

Each bank is like having another 
Model 100, and all the built-in programs 
as well as any snap-in ROM programs ap- 
pear in all four banks and work the same 
way. Your widebar cursor moves from file 
to file and you access any file or run any 
program just by pressing ENTER. 

What lets you copy any file from one 
bank to another is a snap-in ROM from 
PCSG called RAM + , that comes at no 
extra charge. It just pushes right into the 
little socket in that same compartment with 
the 96K expansion unit. 


Not only does this firmware let you 
copy a file from bank to bank, but you can 
make a copy of any file within the same 
bank instantly with a function key. Great 
for Lucid spreadsheets! 

Copy a file from 
bank to bank with a 
function key 

You can also rename a file, or kill any 
file with just a function key. Plus you can 
do a whole lot of other useful things like 
setting the date, day and time with func- 
tion key ease. You even have a function 
key that lets you use non-Radio Shack 
printers without having to make those 
tricky dipswitch settings. 

RAM + lets you cold start any one of 
your banks without affecting the other 
three. That means that anytime you want 
you can clean out a bank’s entire memory, 
but leave intact all the files in the other 
banks. 

What is also fantastic is that you don’t 
have to have the ROM in place to use the 
additional RAM. Whenever you take out 
the snap-in ROM it leaves behind a tiny 
machine code program that lets you switch 
from bank to bank just by pressing 
ENTER. 


This lets you use your ROM socket to 
snap-in other ROMS like LUCID spread- 
sheet, WRITE ROM text processor, or 
DISK + ROM file transfer program, and 
use them in any or all four banks. All of 
these, by the way, are available from 
PCSG. 

When you are ready to copy a file 
from one bank to another or use any of the 
other fantastic functions we talked about 
you can just snap the RAM + ROM back 
into place. 

Everybody that has this 128K system 
in their Model 100 is so excited, because it 
gives them four times the capacity and 
all banks work just like the Main Menu. 

And what has made a lot of people 
happy is that the system bus, located in the 
same compartment, is left free for you to 
plug in a DV1 or the Holmes Engineering/' 
PCSG portable disk drive. 

The ability to copy a file from bank to 
bank instantly with a function key, plus all 
of the other features make this RAM ex- 
tension truly an engineering masterpiece. 

Some people hesitate when they think 
of installing something, and then others 
are skeptical that any additional hardware 
could be as good as the Model 100 itself. 
That’s why we sell these 96K expansions 
on a 30 day trial. Simply return it within 30 
days for a full refund if you are not satis- 
fied. Priced at $425. MC VISA COD. 

1 - 214-351 0564 


PORTABLE COMPUTER GffORT GROUP 

1 1035 Harry Hines Blvd. No. 207, Dallas, Tx. 75229 

VISA / MASTER CARD / AM. EXP. / C.O.D. 



directory, chat with host system oper- 
ator, print data on host printer and 
hang up. The program shows the 
connect time and the current date and 
time the caller exited the system. 

An excellent security feature with the 
host mode is restricted access to any 
drive or directory path except the 
default drive and path. A special host 
directory holds files that are available 
to the public, and callers cannot read 
data stored in the hard drive nor in 
other directories. 

I had some difficulty setting up the 
dialing codes for use with my MCI long 
distance service, so I sent a “help!” 


request to Lindbergh Systems via 
CompuServe. They answered promptly 
and explained step-by-step how to enter 
the pause and user ID codes. 

Omniterm 2 is the greatest commu- 
nications software I’ve ever used. The 
scroll back and constant file save 
features are extremely helpful. The ease 
of operation, plain language menu 
choices and versatility of the package 
are excellent. Who knows, I may even 
start my own BBS using Omniterm 2. 

— M.J. Batham 

(Lindbergh Systems, 49 Beechmont St., 
Worcester, MA 01609, 617-263-5049, $175) 


Software 

Better Basic Lives Up 
to Its Name 

Is Better Basic better? I think so. If 
I made a list of things that would make 
writing BASIC programs easier, the 
following would top my list: 


^ CUSTOM SOFTWARE 
“ for your MODEL lOO or 
NEC PC 8201 A 


CBUG 


debu 99 in g utility for your lap computer. Requires less than 
3K RAM. 100% machine language. Features include.- 


• Instruction Step 

• Call/Instruction Step 

• Zero/Fill Memory 

• Load Data 

• Alter Registers 


• Dump Memory & Registers 

• Search/Replace 

• HEX math (4- & — ) 

• Decimal — HEX conversions 

• Display in HEX or ASCII 

$29.95 


RENUMBER 

The utility you've been waiting fori Now you can renumber your BASIC 
programs IN PLACE! This powerful, 100% machine language program is 
relocatable to any convenient place in memory. Requires less than 3K RAM 
Renumber all or part of a program. You specify line numbers and increment. 

$24.95 


LET S PLAY MONOPOLY* 

It’s you against the computei and the computer is a tough competitor. Super fast 
machine language graphics display the whole board at all times, The computer 
makes all its own decisions. You're really going to love this game. $29.95 


ASSEMBLER 

A powerful 8085 assembler for your lap computer. Recognizes all the standard 
pseud-ops. Immediate data may be in decimal, hex or ASCII. Relocatable to any 
convenient place in memory. Several built-in Macros make your programming 
easier. FASTI Written in 100% machine language and requires less than 3K RAM. 

$32.95 


MELODY MAKER 

A musical program generator. Use simple cursor controls to enter sheet music. 
Melody Maker writes a program to play the song. You can even use Melody 
Maker to add musical routines to your own programs. $ 19.95 

CUSTOM SOFTWARE 

• 1308 Western • Wellington, Kansas 67152 • 
316/326-6197 

Please include $ 1 .00 for shipping. For orders 
outside the U.S., include sufficient postage 
for airmail delivery. U.S. funds only. 

'Monopoly is a trademark of Parker Brothers 



1) Subroutines that could be called 
by name instead of line number to 
improve readability. 

2) Local variables and line numbers 
in those procedures that would not 
conflict with other areas of the program. 

3) Error checking, at least for syntax 
and valid keywords, as program lines 
are entered. 

4) The ability to write and read 
records to data files without worrying 
about disk buffers and type converting. 

Better Basic does all of the above and 
much more. The version I tested was 
for the Tandy 1000, 1200HD and IBM 
PC, but it seemed to run on the Tandy 
2000, as well. A version specifically for 
the 2000 is also available. The manual 
runs over 500 pages and covers Better 
Basic completely. In addition to the 
manual, the second disk in the package 
had a demo program that nicely 
demonstrated many of the features. 

The programs necessary to run Better 
Basic are not copy protected and can 
be backed up. There are about five 
different files that must be online at run 
time, however, they only take up about 
89,086 bytes of disk space. The manual 
is very explicit about which files are 
required and describes the installation 
procedure in great detail. Reference is 
made to the Better Basic compiler, but 
be aware that this really refers to the 
compilation of the extra features. The 
program actually executes as interpreted 
BASIC. 

Once you have the disks set up, typing 
B from DOS loads Better Basic and 
gives you a blank screen with a reverse 
bar across the bottom line. The bottom 
line tells you that the “autodefine” 
feature is on and that you are in the 
main program. 

This leads to one of the more 
interesting features of Better Basic. 
Better Basic sets up “work spaces” and 
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the name of the currently active work- 
space shows on the bottom line of the 
screen. The main program work space 
is just like the environment provided 
by regular BASIC and you may enter 
program lines in the normal manner. 
The difference comes when it is time 
to write a subroutine. 

In Better Basic you name a procedure. 
For instance, you might like to have 
a routine to stop execution of the 
program until a key is pressed. Rather 
than just writing this as a subroutine, 
you would type PROCEDURE PfiUSE. 
This causes Better Basic to set up a new 
work space called pause. The screen is 
again blank and the bottom line tells 
you that you are in the pause work 
space. You may now write your sub- 
routine. The difference is that the line 
numbers you use and the variables you 
declare are “local” to the PAUSE work 
space. 

This means you can start the proce- 
dure at Line 10 even if you have a Line 
10 in the main program. If you write 
a lot of procedures of subroutines, this 
is a very handy feature. Now you never 
inadvertently clobber other sections of 
code by reusing a line number. The 


same thing applies to variable names. 
The loop counter l< you use in the PAUSE 
procedure is different from the l< you 
used in the main program (or any other 
subroutine). 

Making a mess with “side effects” like 
these is a common problem in regular 
BASIC if you write long programs. 
Maybe the best part of all is that in 
your main program when you want a 
pause, you use the name of the procedure 
PAUSE as if it were a BASIC keyword 
instead of having to use GDSUB to a line 
number. Consider the following two- 
line 150s for readability: 

150 GDSUB 8000 
150 PAUSE 

The first is regular BASIC, the second 
is Better Basic . Since PAUSE was defined 
as a procedure, subsequent uses of the 
name call the procedure like a GDSUB 
command. 

While the local nature of the variables 
used in procedures makes writing 
programs easier, there are times when 
a procedure needs a value from the main 
program to do its job. Better Basic 
makes provision for this possiblity. At 


the beginning of a procedure a variable 
may be declared to be an argument 
variable. 

When the procedure is called by the 
main program, a value of a variable 
name follows the procedure name. This 
value is passed to the procedure and 
is available in the procedure as the 
argument variable. The argument, 
however, cannot be changed in the 
procedure. For instance, a procedure 
called DELAY would be passed a value 
representing the length of the delay. 
This value would be an argument of 
the procedure and could be used but 
not changed. 

Sometimes the purpose of a proce- 
dure is to change something. In this case 
the item to be passed to the procedure 
should be declared as a variable 
argument rather than an argument 
variable. Another example may clarify 
that bit of “gobbledygook.” If you 
wrote a procedure called INCREMENT, 
you would want it to change the 
variable from the main program. 
Declaring a variable argument would 
allow you to expect INCREMENT COUNT 
to increase the value of the variable 
COUNT by one. 


The Preble NavComp II 
Two Aviation Programs in one package! 
New Enhanced Version For the Model 100 or new 
Tandy 200! 


NavAid 
For In Flight Navigation 


• Tracks your flight in Real 
Time! 

• Modify Flight Data as 
necessary! 

• Incredible Graphic displays! 

• Shows Position, Fuel, 
Intersections! 

• ETA'S, Ground Speed, and 
much more! 

• Turn off and on without 
data loss! 


NavPIn 

For Flight Planning 

• Creates Navigation Log! 

• Saves Route of Flight for 
repeat use! 

• Compensates for Climbs and 
Descents! 

• Statute or Nautical 
measurements! 

• Self Prompting with error 
prevention! 

• Fly direct or use VORS! 

• And many other advanced 
features! 

Requires Radio Shack Model 100 with at least 16K or the new Tandy 
200 ! 

Attention Radio Amateurs! Announcing: 

The Preble HAMTERM! 

For the Model 100 or new Tandy 200! 

• Radioteletype operation for BAUDOT, ASCII. AMTOR. CW! 

• Split Screen Operation in receive mode with unlimited type ahead 
capability! 

• Word Buffer in T ransmit Mode! Corrects errors before they are sent! 

• Automatic CQ! — Automatic Station Call! — Automatic Logging! 

• Echo to printer! — Download! — Upload! — Send Time and Date! 
- Send RYRY! 

• And many other advanced features! 

Requires Kantronics UTU, RS Model 100 with at least 16K or the 
new Tandy 200! 

The Preble NavComp: Only $34.95 

The Preble HAMTERM: Only $29.95 

Shipping and handling $1.50 to U.S. and Canada — $5,00 to other 
countries. 

Free Brochures available! 

VISA, MasterCard or COD is OK! 

Order From: Dr. Preble’s Programs; 6540 Outer Loop; 
Louisville, KY 40228 (502) 966-8281 


• MAJOR CREDIT 
CARDS ACCEPTED! 


COMPUTER SALES 


I AD > 
| #1026 


MAIL ORDER WORLDWIDE 


•NO SALES TAX 
COLLECTED! 

N.J. RESIDENTS ADD 6% 


[EPSON FX-85 
I PRINTER PKG. 

•EPSON FX-85 

•EPSON Adjustable Tractor Option 
•KENSINGTON Printer Stand 
•Case of Paper 1800 Sheets 
•Extra Printer Ribbon 
I -Printer Interface Cable 


All new FX-85 by EPSON 
Exclusive 1 Year Warranty! - FX-85 
features 8K Buffer, 160 characters 
per second and near letter quality 
mode! 


TANDY 1000 SUPER SYSTEM 

*640K*2 DISK DRIVES 
★ CLOCK CALENDAR ★SERIAL PORT 


REG. 

$2,945 


NOW 
L $ 1 f 999 




•TANDY 1000 
•TANDY Second Drive 
•TANDY VM-2 Green Monitor 
•PBJ MFB- 1000 Board 
•EPSON FX-85 Printer 
•Printer Stand 

•Case of Paper (1800 Sheets) 

•Box of Double Sided Diskettes (10) 
•EPSON FX-85 Tractor Option 


PBJ MFB-1000 Board in- 
cludes DMA Controller Chip, 
Clock/Calendar. 51 2K of 
^Memory, and Serial Port. 


REG. 

$699 


NOW 

$479 


ORDERS ONLY 800-526-5313 

Inquiries, Price Quotes, and In N.J. call 201-728-8080. ORDERING INFORMATION AND TERMS: 

Mail to: CDA COMPUTER SALES, 31 Marshall Hill Road, West Milford, N.J. 07480. Include address 
and phone number. Shipping, handling and insurance are additional. Add 2% UPS Ground ($3.50 
minimum) UPS Blue 6% ($5.00 minimum) NO. C O D. Cashiers checks, moneyorders and credit cards 
ship immediately. Personal and company checks allow 15 days ORDER 9am-7pm EST Monday-Friday, 
Saturday 10-4. OUR REFERENCES: We have been selling computers since 1977. Our bank is First 
Fidelity Bank, West Milford, N.J. D&B listed. SATISFACTION GURANTEED! If you are not 100% 
satisfied, return within 7 days for a full refund. ORDER VIA COMPUSERVE You may place orders via 
COMPUSERVE’S ELECTRONIC MALL 24 hours a day, 7 days a week 
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Better Basic won’t let you get away 
with many errors either. Each line is 
checked for errors as it is entered. If 
there is an error in a line, the error is 
flagged immediately and the line does 
not become part of the program. The 
offense is pointed out with an error 
message and a ^ pointing at the spot 
where the error occurred. Not every 
error can be detected, but punctuation, 
type mismatches, illegal keywords and 
unknown procedure names are all 
checked. This does make a lot of sense. 
It has always seemed silly to me that 
I had to run a program to find out I 
had made a typing error. 

Better Basic has integer and string 
variable types that are the same as 
regular BASIC. It also has some different 
types that are useful. The type “byte” 
is similar to integer, but it only occupies 
one byte instead of two. Its value is 
limited to a maximum of 255, but this 
will suffice for many applications. 

Rather than single and double pre- 
cision, Better Basic has the type “real.” 
The user may specify the level of 
precision of real variables. The PRE- 
CISION command is given an argument 
between six and 24. PRECISION is a 
global command and applies to all real 
variables in the program. 

Better Basic also has a constant type. 
Once a constant has been declared, its 
value may be used but not changed. 
This feature eliminates the inadvertent 
changes possible in regular BASIC. 
There is also a pointer type of variable. 
Any regular variable may be referenced 


directly by using its name, or indirectly 
through a pointer that points to the 
memory location the variable occupies. 
Pointers are useful in creating linked 
data structures. 

Better Basic allows the definition of 
complex data types called records. For 
instance, a teacher might want to have 
a record called STUDENT. This record 
would contain a name field (string), an 
ID number (integer) and a grade point 
(real). Once declared, STUDENT can be 
used as a type in declaring other 
variables. An array of students would 
allow manipulation of a list of students 
using only one array despite the three 
types of data. Even nicer is the ability 
to write a student record to a disk file 
without having to convert the integer 
and real portions. There is no FIELD 
command in Better Basic and no buffer 
to worry about. 

Well, I have pussy-footed around the 
variable declaration issue long enough. 
This is one feature of Better Basic 1 like, 
with reservations. As mentioned above. 
Better Basic boots up with the autodefine 
feature turned on. This means you may 
write code as you always have in BASIC 
just using a new variable when the need 
occurs. Better Basic in this mode will 
write a declaration statement for you. 
The next time you list the program 
procedure, the variable you used will 
be listed in the declarations. The type 
assigned to the variable will reflect the 
type implied by its first use. 

My reservations stem from the fact 
that once a variable has been declared, 


either explicitly by the user or automat- 
ically by Better Basic, its type cannot 
be changed — ever. The autodefine 
feature has gotten me in trouble when 
I used a new variable in an input 
statement. Better Basic decided this was 
a real variable and declared it so. I 
wanted it to be a string, but nothing 
I could do would change the type. Even 
when I was being diligent and declaring 
an array explicitly, I forgot that an 
array of 12 would only go from zero 
to 11 and referencing the 12th member 
would cause an error. 

I tried in vain to redefine the array 
to have 13 members. Maybe the answer 
is to turn the autodefine feature off. 
Now, using a new variable on the fly 
will generate an error as the line is 
entered because the variable is unde- 
clared. You will then have the oppor- 
tunity to declare the variable the way 
you want it. 

Graphics commands are supported in 
Better Basic, but I could not test them 
as I have no graphics board, but I did 
have a good time with the window 
commands. You can define a window 
by giving its upper left and lower right 
corners. Now when you want to open 
the window, the SELECT command pops 
it open. A FRAME WINDOW command 
draws a very nice border around the 
desired window. CLW clears the current 
window and CLS restores the full screen. 
Selecting a new window closes the 
previous one and opens the new. 

Better Basic includes a variety of 
program control structures. FOR -NEXT 


Civilize the DISK/VIDEO INTERFACE • MAKE SAVAGE THE MODEL 100 

With DISK-BUDDY software for your DV/I, only function keys need touch your disk files! 


Twelve programs for one low price, work 
together to give the TRS-80 Model 100 unique 
disk file handling abilities. Access disk files 
from menu, just like a RAM file. Commands 
you were tediously typing become simple 
function key selections. And that’s just part of 
the power of the DISK-BUDDY PAK. It does 
things you can’t: 

• Create “superfiles” the length of the disk, 
over 170,000 bytes! 

• Print out, or display on either screen, or 
copy to disk or ot her d evice, a disk data file 
of any length, WITHOUT USING ANY 
ADDITIONAL RAM! 

• Furthermore, transfer records can be “fil- 
tered”, an example: 

An address file on disk can contain more 
than 1300 entries. You can move to 
RAM, or screen, or printer, etc., those 






records which contain “California” and 
“Tennis” or whatever. Four logical 
modes of search are available. 


• Also: Features to run, load, save, sort, kill, 
measure, append, and name, disk files and 
RAM files, and much more. 

PCM Magazine (March, ’85) said: . .an 

excellent buy ” . . . “manual is extremely 
well written” . . . “will substantially 
increase the speed and ease of operation of 
the M-100 with the D/VI” GHZ] 

That was the idea in the first place. 

TO ORDER THE DISK-BUDDY PAK 
(disk and manual): Send name, address, 
and check or money order for $39.95 plus 
$2.00 postage and handling to the address 
below. (For COD’s call: 212-243-2129) 


BuddySystems 

220 West 24th Street 
New York, NY 10011 
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ITANDY 1000 - 640K1 


FORT WORTH COMPUTERS 


loops are there, of course, but a DO loop 
is included. This loop may be done a 
specified number of times or done until 
an exit command is executed, or the 
loop may end in a conditional repeat 
command. UHILE loops are also sup- 
ported. Even though line numbers are 
used for the statements within the 
various loops, Better Basic does not 
permit a GOTO into or out of one of 
these structures. The only way in is from 
the top and the only ways out are the 
end of the loop or an EXIT statement. 
This discipline takes some getting used 
to, but it makes for better programs 
and makes following the logic of a 
program easier. 

If you have read this far, I guess I 
owe you a summary. Better Basic lives 
up to its name. It incorporates many 
of the best features of PASCAL and 
includes features not available in 
regular BASIC. The program works and 
the documentation is good. There are 
some deficiencies, but I assume they will 
be corrected in the new edition. 

If you want a way to write better 
documented, more readable BASIC 
programs, Better Basic may be for you. 
I think that skimming a PASCAL text 


would be of benefit to a programmer 
who has used only regular BASIC. It is 
not absolutely required, but it would 
make some of Better Basic's concepts 
easier to understand. 

The system requires 128K (256K to 
do anything useful). 

(Summit Software Technology, P.O. Box 
99, Wellesley, MA 02157, $199.95) 

— Potter Orr 


Software 


Bar Code Drivers 


If you want to read UPC, Codeabar, 
or interleaved 2-of-5 bar codes, this is 
the software for you. It does the job, 
though the documentation is poor. The 
manual should warn you of the dangers 


of using machine-language device 
drivers. 

What You Require 

To read bar codes you need a Model 
100 computer, a bar code wand and a 
bar code software driver. If you wish 
to read Plessey, 3-of-9 or full-size 
Universal Product Code (UPC) codes, 
you do not need the product reviewed 
here; you need only the Radio Shack 
wand (Cat. No. 26-1183, $99.95) and 
one of the drivers supplied with it. (The 
wand was reviewed in the March 1984 
issue of PCM.) 

If you wish to read all UPC codes, 
including the smaller codes found on 
small consumer goods, or if you are 
working with 2-of-5 or Codeabar codes, 
then you need this product and a wand. 
(Most people would just use the Radio 
Shack wand but the standard Hewlett- 
Packard wand, which is electrically 
identical, will also do the job.) 

What You Get 

You get a cassette with eight pro- 
grams, listed in Table 1. It comes in 
the standard padded vinyl Radio Shack 
binder with a nine-page manual. 


WILL YOU BUY COMPATIBLE? 

bm Compatible (or) will you pay too much? 


SERVICE AND WARRANTY NATIONWIDE 

TANDY 2000 • 768K 


SAVE SALES TAX 
PLUS DISCOUNT 

’Texas Residents Add Only 4'a°o 


Ask About Our 

“30 Days 

Buy - Back - Policy" 


TANDY 1200 - 640K 


SERVICE AND 
WARRANTY NATIONWIDE 


For 
Prices 
Call 

JM. 


WE ARE SERIOUS ABOUT SAVING YOU MONEY 


(Located 30 miles from Fort Worth) 

377 PLAZA • GRANBURY • NR FORT WORTH. TEXAS 76048 


CALL FREE NUMBER: i soo 433-S A-V-E 

Monday thru Friday - 9:00 a.m. to 5:00 p.m. Texas Time 
(Order Inquires/Customer Service) IN TEXAS: 817-573-41 1 1 
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The first four programs are used with 
a non-disk Model 100; the others are 
nearly-identical versions modified for 
execution below the D/ VI system RAM 
area. File sizes are listed, but don’t 
forget that a CO file may take up 
memory twice — once where it has been 
saved among the directory files and 
again where it has been loaded in the 
execution area. 

Installation 

It is pretty easy to load one or more 
drivers from cassette into the Model 
100. A demonstration program, pro- 
vided, does a good job of showing how 
easy it is to read bar codes. You can 
test out the UPC driver by reading full- 
sized codes (such as those on the cover 
of this magazine) and small codes, such 
as those on soft-drink cans. A good 
source for a sample codeabar code is 
a Federal Express airbill. 

Documentation 

The manual is poor. It provides no 
sample bar codes, so there is no way 
to test the software. A chart on Page 
3 of loading locations is incomplete and 
misleading. There is no index, and a 
mistake on Page 2 makes it impossible 


Table 1. Bar Code Driver Software 


Program 

I20F5.C0 

CDABR.CD 

UPCEAN.CO 

RDBC2.BA 

I2DF5D.C0 

CDABRD.CD 

UPCEAND.CO 

RD8C2D.8A 


Size 

797 

915 

1013 

777 

797 

915 

1013 

779 


Function 

Interleaved 2-of-5 driver, non-disk version 

Codeabar driver, non-disk version 

UPC driver, non-disk version 

basic demonstration program, non-disk version 

Interleaved 2-of-5 driver, disk version 

Codeabar driver, disk version 

UPC driver, non-disk version 

BASIC demonstration program, disk version 


to load the UPC driver. (HI MEM should 
be set to 61752, not 62765.) It is only 
nine pages long, explains little about 
the BASIC statements that may be used 
with the wand, and gives no warning 
about the importance of backing up 
user files. It is supremely important to 
use CALL 61807 when the BASIC 
program is finished, but the manual 
merely says this is necessary to “prevent 
an error condition” when the real 
reason is that destruction of user files 
is almost a certainty if the CALL G1B07 
is forgotten. 

Radio Shack distributes upgrades of 
software through items with catalog 
numbers in the 700 series; they are 
unpublicized and one learns of them by 


accident. The one valuable piece of 
information in the manual is the 
mention of catalog number 700-2401, 
a set of drivers which allows owners 
of the D/VI to read Plessey, 3-of-9 or 
full-size Universal Product Code (UPC) 
codes. 

Customer Support 

Radio Shack maintains customer 
support phone numbers in Fort Worth, 
with which most Model 100 owners are 
familiar. 

(Tandy Corp., One Tandy Center, Fort 
Worth, TX 76102, $19.95, special order 
through Radio Shack stores nationwide) 


— Carl Oppedahl 


How It 
Works 


When a bar-code wand is con- 
nected to the Model 100 or 200, 
the data may be obtained by 
inspection of input port BB. To 
see this, run a simple BASIC 
program: 

1 IF 8 AND INP(187) THEN 

BEEP: GOTO 1 ELSE 1 

When the bar is activated and 
is touching a reflective surface, a 
beep will be heard. When a wand 
is scanning a code, BASIC cannot 
keep up with the light and dark 
parts of a bar code, so machine 
language must be used. One 
choice for the sophisticated pro- 
grammer is to write a machine 
language program to convert the 
serial data from the wand into 
useful data. But for most users, 


the convenient choice is to use an 
existing machine language driver 
such as that reviewed here or 
included with the wand. 

The driver sits in the protected 
area between HIMEM and MAXRAM. 
In each computer, the ROM 
routines that handle the BCR 
socket rely upon hooks in the 
system RAM area (above MAX 
RAM). The hooks include a handler 
for the RST 5.5 interrupt which 
occurs when a white region is 
scanned; a handler for an attempt 
to OPEN "WAND:" FOR INPUT 
(which sets up a file buffer); and 
a handler for basic commands 
like INPUTS, LINEINPUT and 
INPUT. When the computer is 
cold-started, the hooks assume 
values that generate ?FC errors 
whenever the WAND device is used. 

The drivers are designed so that 
when they are executed via the 
RUNM command, a routine at 
61824 (or 56960 in the disk 
version) modifies the BCR hooks. 
As a result of this installation, 
when the wand is opened, the 


“open” hook leads to a part of 
the driver rather than to a ?FC 
error. Similarly, an INPUT from 
the WAND device leads to a part 
of the driver rather than to a ?FC 
error. 

If by chance a different CO file 
is loaded, the stage is set for the 
loss of user files. A later attempt 
to OPEN the WAND: activates the 
“open” hook, which passes control 
to some address within the differ- 
ent CO file. In general, the machine 
language code there will not run 
right, and may lose all user files. 

Radio Shack has made provi- 
sion for tidying up the RAM 
hooks; a routine at 61807 will 
return the WAND hooks to their 
previous values, protecting every- 
thing. One glaring problem with 
the manual is that it only mentions 
the routine at 61807 in passing — 
it is in fact an essential part of 
any basic program using the 
driver. The demonstration BASIC 
program, to its credit, does illus- 
trate a way to be reasonably sure 
of resetting the hook values 
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Tandy 200 Use 

The BCR connector and pin 
designations of the Tandy 200 are 
identical to that of the Model 100. 
In each computer the scanning of 
a white region generates an inter- 
rupt to the CPU and changes Bit 
3 of CPU input port BB. The two 
have nearly identical BASIC in 
ROM (though at different loca- 
tions) with analogous provisions 
for adding the WflND: device. As 
a result, the software driver 
necessary for decoding a given 
type of bar code should be nearly 
identical for the two machines. 

Regrettably, the ROM, none- 
theless, differs in the 200 (the 
RAM hooks are in different 
places), and the difference is great 
enough that the drivers must be 
rewritten for the 200. 

Another reason the Model 100 
BCR drivers cannot work in the 
Model 200 is that any driver must 
be assembled to fit just below the 
MAXRflM address, and MflXRflM 
differs in the two machines. 

Fort Worth tells me that drivers 
for the 200 will be available soon. 


Software 


Golden Oldies: 

A Blast From 
Computing’s Past 

“I found my thrill 

On Blueberry Hill 

On Blueberry Hill 

Where I found you ” 

Radio stations and record companies 
have been making millions for years 
with “Golden Oldies,” those great hits 
of the past that somehow twang a 
special chord in our hearts and 
memories. 

But songs, great as they are, are not 
the only “Golden Oldies” to be praised, 
enjoyed and honored by our memories. 

Remember the very first time you 
played PONGI 1 do. ’Twas in a place 
called Shenanigans in Chicago’s Rush 


Street area. So much did I like it that 
I bought a whole portable video game 
from Magnavox just to be able to play 
it on my own TV. Cost of that little 
adventure? $200. 

And speaking of Adventures, how 
about the original one? The travel 
through the Colossal Cave to fun, 
fantasy, pirates, dwarves and twisty 
little passages all alike? 

The first time I played the Original 
Adventure, it took me a good hour to 
figure out how to get in the cave at 
all — and a couple of hours to solve 
the mystery of getting past the snake. 
I remember the sheer exaltation when 
I did it — I even called a friend long 
distance to tell him! 

Do these classics compare with The 
Coasters, Buddy Holly, Elvis and 
Chubby Checker (who Dick Biande of 
WLS once said was “a fat taxi cab”)? 
You bet! 

“It 's one for the money 
Two for the show 
Three to get ready 
Now go, cat, go 

But don ’t you step on my Blue Suede 
Shoes ” 






000 


ALWAYS AT 
SALE PRICES 


HARD DISK DRIVES 


TANDY 

COMPUTERS 


ElCHECKOURl 
SALE PRICES 


WITH THE MANUFACTURERS WARRANTY 


COMPUTER 


Center 


CUTOMER SERVICE 
(81 7) 481 -SALE 

(9 a.m. - 5 p.m. C.S.T.) 


DFW COMPUTER CENTER 
326-MAIN ST., 
GRAPEVINE, TEXAS 76051 


HAVE YOU GOTOUR PRICES? 
CALL TOLL FREE 

1 -800-433-SALE 
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A company named Software Country 
has put together what I consider to be 
a “must” list for everyone who has any 
sort of interest in — or nostalgia for 
— personal computing. It is called 
Golden Oldies and features Tandy 1000 
and 1200 versions of the original 
PONG, Adventure, Eliza and Life. Do 
these programs need explanation? 
Probably not. 

Still in all, PONG is the original 
arcade game, and in these versions can 
be played in either black and white or 
color, one person or two. Adventure 
is the original version of the great Wil 
Crowther/Don Woods hit. Eliza is the 
original “artificial intelligence” program 
which resembles a psychiatric session. 
You type in comments and Eliza asks 
you questions. It isn’t real, but it is a 
lot of fun. Life is that famous game 
that isn’t really a game at all in which 
you set up individual cells on the screen 
and they either give birth to new ones 
or cause the death of old ones according 
to their proximity to one another. There 
are some classic starting patterns stored 
on the disk, as well as some interesting 
variations. 


I know that when I got my first 
personal computer, I searched for 
months trying to find a version of 
Adventure that would run on it. I was 
addicted to the game. In its original 
version. Adventure was the classic 
“text” Adventure — and all in whatever 
color the screen would handle. This 
version has been livened up with your 
commands in one color and the com- 
puter’s responses in another. There is 
also a “save game” feature! 

A real blast from the past! 

“ Went to a dance 

Lookin ’ for romance 

Saw Barbara Ann 

So / thought I’d take a chance” 

Here’s the Barbara Ann of Software. 
And only $29.95 

Golden Oldies comes with a 40-page 
bound book (I’d hate to call it a manual) 
that spends most of its space explaining 
the history of the four programs and 
bringing out some of the flavor of them 
— including Tracy Kidders’ Pulitzer 
Prize winning “The Soul of a New 
Machine” essay on Adventure. The 
book itself is a joy to read, a “Book 


Of Love” to the greatest computer 
software classics ever. 

Finally, recognizing that Golden 
Oldies have been adapted for what are, 
essentially, business machines. Software 
Country has added a nice little touch 
too often missing from software today 
— a touch of humor. 

If “your supervisor or the Big Boss ” 
walks in your office while you are 
playing, there’s a “panic button,” 
CONTROL-P, that will quickly erase your 
screen and put a “spreadsheet tutorial” 
display on your monitor for the boss 
to see how hard you’re working. That 
way, playing on company time won’t 
force you out into the streets to “Get 
A Job” ( Yip-Yip-Yip-Yip , Boom- 
Boom -Boom -Boom)] 

These are programs you should have. 
They are faithful adaptations of the 
classics which, as classics, will certainly 
live forever and ever. Or, at least, as 
Johnny Mathis once said, until “The 
Twelfth Of Never.” 

(Software Country, distributed by Electronic 
Arts, 2755 Campus Drive, San Mateo, CA 
94403, 415-572-2787, $29.95) 

— Lonnie Falk 


Introducing MFB-1000 


DMA Controller 

(Available without DMA Controller to use 
as second board or for IBM compatibility) 


Clock/Calendar 


Clock Battery Backup 


128K-512K Memory 



Serial Port 



P.O. Box 813 
911 Columbia Avenue 
IOC. N. Bergen, N.J. 07047 
(201)330-1898 

Dealer Inquiries Welcome 

ORDERING INFORMATION: 

Visa/Mastercard orders accepted. Allow 2 weeks 
for personal checks to clear. Add $3.00 shipping 
and handling. C.O.D. orders add $2.00. N.J. resi- 
dents add 6% sales tax. 


Designed for use with the new 
Tandy 1000 Personal Computer, the MFB-1000 
contains three of the most needed functions on a single 
10" expansion card. Using either 64K or 256K DRAM chips, the MFB-1000 
can be populated with up to 512 K of memory bringing total system memory 
to 640K. Additionally, the board also includes an IBM compatible serial 
communications port (identified as COM1) and a battery backed real time 
clock/calendar. As required by the design of the Tandy 1000, the MFB-1000 
also contains its own DMA Controller. However, the DMA Controller can be 
disabled, making the MFB-1000 compatible with the Tandy 1200 as well as 
other IBM compatible machines. 


128K RAM $329.95 


■ 256K RAM $369.95 


512K RAM $429.95 


IBM is the registered trademark of International Business Machines 
Tandy 1000/1200 are registered trademarks of Tandy Corp 
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Software 


Cheap ware’s Label 
Maker is Adequate, 
Affordable 

If you have ever needed 9,999 labels 
to place on jars of home canned 
tomatoes or an unlimited supply of 
return address labels for your home or 
business then the Cheapware Label 
Maker may be for you. A short un- 
derstandable manual accompanies thir 
simple-to-operate program and together 
they adequately fill a need. 

The 18-page manual explains the 
typefaces, fonts and program functions 
which are available. The manual starts 
out with a brief description then 
immediately jumps to a semi-technical 
discussion of how to manipulate the 
different program and data files. It is 
helpful to have some prior understand- 
ing of file manipulation, but even the 
beginner computer operator, after 
reading the section once or twice, would 
be able to follow the directions. 

The three typefaces and four fonts 
that are available give the program its 
versatility. Several of these are available 
only on a dot-matrix printer and the 
combinations are limited. The labels 
may be printed in standard typeface, 
bold typeface or enhanced typeface. 
Bold typeface and enhanced typeface 
may supposedly be combined for a very 
dark impression. Because there was no 
apparent difference between the three 
dark prints when this program was 
tested, one option would have been 
adequate. 

Four fonts are also available. These 
are normal (elite), pica, expanded and 
condensed. It gets somewhat confusing 
when printing in pica or condensed 
print. The third label across the page 
ends up being several characters shorter 
than the first two labels. Also, empha- 
sized typeface is not available in either 
of these two fonts. This program was 
tested on a Daisy Wheel II printer and 
an Epson FX 80 printer. The print 
quality was excellent on the Daisy 
Wheel printer but the different fonts 
were, of course, not available. Unfor- 
tunately, they did not work on the dot 
matrix printer either. While the manual 
states that the program requirements 


only include “a dot matrix printer,” 
apparently this is not so. I would not 
purchase this piece of software without 
first obtaining a guarantee that it will 
support your dot matrix printer. 

The typefaces and fonts are easily 
activated by pressing the CONTROL key 
and a letter. For ease of remembrance, 
a handy help screen will display all the 
control combinations at the bottom of 
the screen. This portion of the screen 
may also be toggled to blank when not 
needed. 

Five simple program functions run 
the program. All of these operated 
smoothly. The user may save label 
information, load label information, 
delete a label, type a sample label or 
write a label. Each of these are readily 
activated with a CONTROL key combi- 
nation. The program will print as many 
labels as needed, un to 9,999. 

For the more sophisticated user, two 
other niceties exist. It is possible to 
insert a serial number on the label. It 
will start at any digit and print up to 
the number 9,999,999. Another very 
nice feature of Label Maker is the 
ability to insert text from a sequential 
file as it is being printed. While all five 
lines of the label are available for input 
from files, each line must carry a unique 
filename. This option is not intended 
to be used to create mailing labels. For 
as the programmer puts it, “I have 
another program you may purchase 
which contains this function . . . 
Cheapware Letter I Manuscript Writer .” 

As an added bonus, 3,000 labels 
accompany your original order. It is 
helpful to see the labels to understand 
the line length differences explained in 
the manual. The labels are standard 
labels with three labels across the page 
and 12 down. They are available from 
any office supply house or may be 
ordered directly from the manufacturer 
of Label Maker . 

While Label Maker does not come 
with the “Pomp and Circumstance” or 
frills of some other packages, it, to a 
certain degree, does what it is supposed 
to do, and at a very affordable price. 
It also contained many misspelled 
words in the demo documentation. For 
the home user or small businessman, 
Label Maker can adequately fill a need. 

(Robert L. Nicolai, 4038 N. Ninth Street, 
St. Louis, MO 63147, 314-621-7618, $45) 

— Melanie Debusman 
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Back Issue 
Availability 

Back copies of many issues 
of PCM are still available. 

All back issues sell for the 
single issue cover price. In 
addition, there is a $2 charge 
for the first issue plus 50 
cents for each additional 
issue shipped in the U.S. 
When possible, issues are 
shipped UPS. The postage 
cost in Canada and Mexico 
is $3 for the first issue and 
$1 for each additional issue. 

VISA, MasterCard and 
American Express accepted. 
Kentucky residents please 
add 5 percent state sales tax. 
We do not bill and no COD 
orders accepted. 

We suggest you order 
back issues you want now 
while supplies last. 

To order, just fill out the 
form on the next page and 
mail it with your payment 
to: 


PCM 

The Falsoft Building 
Prospect, KY 40059 
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EETC1 


Software 


D Please send me the following back 
issues: 

(Payment must accompany back issue 


orders.) 
NO. MO. 

YR. 

VOLUME 1 

PRICE 

1 

JULY 

*83 

PREMIER ISSUE 

$3.00 

□ 

2 

AUG. 

’83 


$3.00 

□ 

3 

SEPT. 

’83 


$3.00 

□ 

4 

OCT. 

‘83 


$3.00 

□ 

5 

NOV. 

*83 


$3.00 

□ 

6 

DEC. 

’83 


$3.00 

□ 

7 

JAN. 

‘84 


$3.00 

□ 

8 

FEB. 

’84 


$3.00 

□ 

9 

MAR. 

84 


$3.00 

□ 

10 

APR. 

‘84 

LIMITED 

$3.00 

□ 

12 

JUNE 

’84 

VOLUME 2 

$3.00 

□ 

2 

AUG. 

‘84 


$3.00 

□ 

3 

SEPT. 

84 


$3.00 

□ 

4 

OCT. 

’84 


$3.00 

□ 

5 

NOV. 

’84 


$3.00 

□ 

6 

DEC. 

’84 


$3.00 

□ 

7 

JAN. 

’85 


$3.00 

□ 

8 

FEB. 

‘85 


$3.00 

□ 

9 

MAR. 

’85 


$3.00 

□ 

10 

APR. 

‘85 


$3.00 

□ 

11 

MAY 

'85 


$3.00 

□ 

12 

JUNE 

‘85 

VOLUME 3 

$3.00 

□ 

1 

JULY 

'85 


$3.00 

□ 

2 

AUG. 

‘85 


$3.00 

□ 

3 

SEPT. 

’85 


$3.00 

□ 


TOTAL . 

SHIPPING & HANDLING . 


KY RESIDENTS ADD 5%. 

TOTAL AMOUNT 
ENCLOSED . 
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Smart Cook : 

Try a Few Bytes 
Before Deciding 

May I suggest a software package 
that you can really sink your teeth into? 
It’s called Smart Cook from LeCom 
Enterprises. 

Smart Cook is an electronic recipe 
cardfile with each disk containing 
approximately 40 recipes. Each recipe 
has preparation instructions for both 
microwave and conventional cooking. 

Operation of Smart Cook is very easy 
with selection of recipes and various 
options being handled by on-screen 
menus. 

LeCom has utilized the number 
crunching capabilities of the Model 
1000 in designing Smart Cook. You are 
given the options of choosing a recipe 
with proper ingredient portions from 
one to 24 servings. The 1000 and Smart 
Cook recalculates the amount of 
ingredients necessary for the varying 
number of servings. 

Smart Cook is delivered in a “Book- 
of-the-Month-Club” type format with 
the subscriber receiving a new disk 
every month. Each disk contains only 
recipes from a particular category. The 
categories are: 1) Appetizers and 
Snacks, 2) Soups, Stews, Sauces and 
Gravies, 3) Vegetables and Salads, 
4) Eggs and Cheese, 5) Meats, 
6) Poultry, 7) Fish and Seafood, 

8) Breads, Sandwiches, Rice and Pasta, 

9) Desserts, Pastries and Beverages, 

10) Cakes and Cookies, 11) Holiday 
and Nationality Favorites and 12) One- 
Dish Meals. At the end of a year, the 
category repeats but the recipes change. 

Each recipe can be printed to elim- 
inate the need for leaving the 1000 on 
the countertop next to the toaster. 

A list of ingredient substitutions is 
included on the disk for the ingredients 
used in the recipes. 


The Smart Cook program is well- 
written with no apparent bugs. The user 
is prompted with available options on 
the screen and incorrect responses do 
not bomb the program. 

A companion, but separate, program 
called My Very Own Recipes , allows 
the user to enter his or her own favorites 
and use the features of Smart Cook to 
change the ingredient portions for the 
number of people being served. 

My Very Own Recipes requires two 
disks: one for the program, and one for 
the recipes. About 40 recipes can be 
stored on each disk. By adding addi- 
tional disks, the library of your recipes 
is unlimited. 

Although the program is well-written 
and executed, I do not find it to be 
terribly practical. 

Using Smart Cook , a four course 
meal would require accessing four disks 
to obtain each recipe. The user does 
not have the capability of changing the 
recipes on the disk to accommodate 
variances in microwave power, altitude 
(very important to this Colorado 
resident) or personal taste. With the My 
Very Own Recipes program, of course, 
the recipes are customized to the user’s 
taste as they are entered. 

Compared to established printed 
cookbooks, Smart Cook is a question- 
able value. A one-year subscription at 
$13.50 per month would give you 
approximately 480 recipes for $162.00. 
My Very Own Recipes seems to be a 
better value at $24.50. 

A desirable feature not included but 
one which could be easily added is the 
capability to do menu and shopping 
planning for a week by choosing meals 
for the week in advance and having the 
1000 add and store the necessary 
ingredients and print out a cumulative 
shopping list. 

For those curious about Smart Cook , 
there is a demo disk available which 
contains a selection of recipes from the 
various categories. 

(LeCom Enterprises, Box 346, Winfield, IL 
60190, one year subscription, $13.50/ 
month) 

— Bruce Rothermel 


Princeton, New Jersey — 

the place to be October 11-13. 
See our inside back cover. 
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New Products 

Department 







World Book 
Introduces 
Educational 
Software 

World Book Discovery, Inc., a 
subsidiary of World Book, Inc., intro- 
duced its Discovery Software for Apple 
and Tandy 1000 computers at the 
International Consumer Electronics 
Show (CES) in Chicago. Discovery 
Software currently marketed for the 
IBM PCyr and includes 21 interactive 
programs which teach and reinforce 
essential learning skills for children ages 
3 to 10 and up. 

Discovery Software series provides a 
complete set of learning tools carefully 
designed to meet the needs of the 
preschool and school-age child and 
promote the joy and the challenge of 
learning through discovery, claims 
World Book. 

Discovery Software is organized into 
three series: preschool, for ages 3 to 5; 
primary, for ages 6 to 10; and inter- 
mediate, for ages 10 and up. Each series 
is available as a package of seven 
programs at a suggested retail price of 
$249.95. Individual programs may also 
be purchased separately at a suggested 
retail price of $39.95. Each program is 
supported with a workbook of activities, 
projects and suggestions for games 
which parents can use to reinforce 
specific learning skills. 

World Book, Inc., The Merchandise 
Mart, Fifth Floor, Chicago, IL 60654 

New Paper Jet™ 400 
Triples Hewlett- 
Packard LaserJet™ 
Paper Capacity 

Ziyad has introduced an automatic 
sheet and envelope feeder for the 
Hewlett-Packard LaserJet™ which 
more than triples the paper capacity of 
that laser printer. 

The Ziyad PaperJet™ 400 consists of 
two paper trays and one envelope tray 
which are housed underneath the 
LaserJet. With the paper feeder, a user 
can print up to 450 sheets of paper and 
75 envelopes without refilling the paper 


or envelope trays. The 400’s two 
adjustable paper trays store and feed 
standard, legal, executive (monarch) 
and European DIN sized paper. 

Because the LaserJet and PaperJet 
400 combination offers a total of three 
paper trays, a user can stock, feed and 
print up to three different types of 
stationery and bond paper without 
having to manually change paper. This 
makes it easy to intersperse within one 
document different sizes and types of 
paper and envelopes for correspondence, 
graphs and spreadsheets. 

The PaperJet 400 is compatible with 
Hewlett-Packard, IBM and IBM- 
compatible computers and word pro- 
cessing systems that use the LaserJet 
printer. And, it operates with the same 
word processing software as the 
LaserJet. 

The Ziyad PaperJet 400 Third Party 
Solution is available through all author- 
ized Hewlett-Packard dealers and 
VARS. The price is $1,895. 

Telescan Inc. 
Announces 
Investment Software 
And Online 
Database 

Telescan Analyzer is a color graphics 
stock analysis program which accesses 
the Telescan Financial Database of over 
7,000 stocks and indices, updated daily. 
In seconds, the program displays up to 
12 years of historical data as individual 
customized technical or fundamental 
stock graphs. 

Technical Analysis includes both 
simple and exponential moving aver- 
ages, cycles, momentum, momentum 
moving averages, trendlines, on-balance 
volume, relative strength and short 
interest. Fundamental analysis includes 
insider trading, earnings, dividends, 
book value, cash flow, capital spending, 
inflation adjustment and proprietary 
indicators. 

All New York Exchange, American 
Exchange and NASDAQ Over the 
Counter stocks are listed in the database, 
and are updated daily. 

The Telescan package retails for 
$395.00 and includes the program and 
a year of the Software Maintenance 


Package, along with an 800 support 
number. Connect charges, via Tymnet, 
are $10.00 per hour prime time and 
$5.00 per hour non-prime time, in major 
cities. There are no monthly minimum 
fees. 

System Requirements: IBM PC, PC- 
XT, PC-AT, PCjr, Compaq, 100% IBM 
compatibles, 256K, Hayes Smartmodem 
or compatible (1200 Baud), color 
graphics. 

For more information, contact Tele- 
scan Inc., Suite 600, Houston, TX 
77042, (713) 952-1060. 

Portable Power 
System For Briefcase 
Computers 

Prairie Power Systems, Inc., has 
announced a new portable battery 
system and carrying case that greatly 
extends the power capabilities for most 
lap-top computers. 

Popular briefcase computers such as 
the Tandy 100 and 200, NEC 8201 and 
8401, Epson lap-tops, Hewlett-Packard 
110 and Sord’s IS-11 series will benefit 
by the Prairie Power battery and 
carrying system. 

Prairie Power claims that the new 
product can greatly extend computing 
time on the Tandy 200. For example, 
the power system provides up to 160 
hours of continuous usage while normal 
“A A” life on the Tandy 200 provides 
a mere 10-15 hours. 

The complete computer and battery 
system is housed in a water-resistant 
carrying case. The soft-sided Cordura® 
case is fully padded and features a 
removable PVC insert panel that can 
be used as a lap-top work station. The 
case is attache size (17 by 13 by 5 inches) 
and will easily fit under any airplane 
seat. The case, battery and charger with 
the Tandy 100 weighs 12 pounds. 

The case features thick foam protec- 
tion that holds the battery, charger and 
computer. The case also has room for 
acoustic cups, cables, a small recorder 
or the new line of 3i4-inch disk drives, 
protected in a special padded pocket. 
The complete system will be sold for 
$169.00 (includes case, shoulder strap, 
Model 10 battery, charger and cables). 

More information is available from 
Prairie Power Systems, Inc., 1-800-435- 
8721. 
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Concepts 

Computerized 

Atlas™ 

Lets Users “Travel 
By Cursor” 

Software Concepts, Inc. now presents 
geographic facts, figures and distances, 
3-D color displays of the globe and 
more in IBM® PC and compatible 
system software. Concepts Computer- 
ized Atlas ™ geographic information 
software is available for $69.95 at 
participating Software Concepts’ 
dealers. 

Pop-up menus let users change the 
size of the globe (ten zoom levels); see 
facts about cities, states and countries; 
rotate the view to center on any of the 
seven continents or on the current 
cursor position; and more. 

Minimum system requirements are 
an IBM PC or compatible, IBM PCyr, 


Tandy™ 1000 or Tandy 1200; DOS 2.0 
or 2.1; 128K of RAM, one disk drive, 
a graphics board and a color monitor. 
Atlas is also available for the Tandy 
2000. For additional information 
contact Software Concepts, Inc., 1116 
Summer Street, Stamford, CT 06905; 
(203) 357-0522. 

Flagstaff Software 
Solves Disk 
Incompatibility 

Flagstaff Disk Conversion Equip- 
ment, a distributor for Flagstaff Engi- 
neering’s Word Connection and Diskette 
Connection , is marketing the systems 
which are used to transfer document 
files between most word processing 
systems and the IBM PC, XT, AT or 
true compatible. 

Diskette Connection hardware system 
consists of an 8-inch drive, a cable and 
a special controller card for the PC. 
This system allows you to read and 
write most 8-inch, 5!4-inch or 3!4-inch 
diskettes. 


The Word Connection programs 
used in conjunction with the Diskette 
Connection system, allow you to 
transfer document files on diskette 
between most word processing systems 
including CPT, Display writer, OS/ 6, 
NBI, Xerox, Wang, IBM S/32, S/34, 
S/36, S/38, etc., and CP/M systems. 

The conversion of data is fast, 
transferring 40 pages of document per 
minute. The transferred documents can 
be sent directly into mainframe com- 
puter systems using IBM’s PROFS and 
DISOSS electronic mail system. 

The Word Connection programs use 
IBM standard Document Content 
Architecture (DCA-RFT) to transfer 
document files and parameters such as 
page size, margins, tabs, headers and 
footers, type style, proportional spacing, 
multilingual characters, merging of 
graphics and text and typesetting 
control characters. 

The Word Connection , priced at 
$695, and the Diskette Connection , 
priced at $1,099, are available from 
Flagstaff Disk Conversion Equipment, 
1805 N. Beaver, Flagstaff, AZ 86001, 
Call 602-774-5422, or 1-800-821-7493, 
Ext. 236. □ 



COCO-UTIL 


“The Connecting Link" 

CoCo-Uti! is a valuable utility program that allows you to transfer Tandy 
Color Computer disc tiles to your MS-DOS machine. You may also trans- 
fer MS-DOS files to a Color Computer disc. CoCo-Uti! will save you 
countless hours of retyping . . . a great new utility. 



64 K Upgrades Set of 9 chips Great Bargain 

Only $14.95 


PC-XT II 


We now offer IBM PC-XT compatible computer sys- 
tems. Don't settle for a Tandy 1000 or other standard 
PC until you check our systems and prices. 

Starting at $865. 


MS-DOS ADVENTURES 


Our popular Hi-Res Color 
graphic Adventures. . .Ca- 
lixto Island, Black Sanctum, 
Shenanigans, Sea Search, 
Trekboer are now available 
for MS-DOS computers 
to challenge and 
entertain you. 


PRINTERS 


New Star Gemini SG-10 Model printer. 

120 cps w/true descenders, proportional 
spacing. New model for 1985. 

Our Great Price, Only $249.95 






QUALITY VIDEO MONITORS 


We carry both monochrome and color 
monitors at the best prices— several brands 
available. Call for more details. 

Priced from $109.95 



TILT SWIVEL BASE 


Now you can adjust your monitor for best viewing angle. Left, right, 
up, down. Use with any monitor. Compare with units that sell for 
much more. Our great price— Only $14.95 


DISC STORAGE CASE 


Attractive, heavy duty, smoked acrylic case. 
Holds and protects up to 75 514" discs with 
six moveable, indexed dividers. 

SUPER BARGAIN ONLY $9.95 

storage box along with ten discs for only $21.95. 



10 514" discs in attractive styrene box— Only $12.95 


SHIPPING: All orders under $ 100 please add $2 regular, $5 air. All orders over $100 please add 3% regular, 8% air. California residents please add 6% sales tax. Orders outside 

th H C wiclT 8 pI- a * ^ hec * Wltf \ us f or shipping amount; please remit U S. funds. Software authors— contact us for exciting program marketing details. We accept MasterCard 
and VISA. Distributed in Canada by Kelly Software ■-■**-*- « i r 

FREE— Send for Our Latest Product Flyer! 
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BAR CODED LISTINGS 
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Using BA READ 2.1 


Bar code listings must be 
read in numerical order begin- 
ning with Line 1 and contin- 
uing through the last line of 
the listing. The computer 
display is used to prompt you 
as to which line to scan and 
give you warning messages 
should you happen to get out 
of step. 

When you run BAREAD, it 
asks you to scan the first line 
of the bar code listing. This 
line contains the name of the 
program as well as the begin- 
ning of the program itself. The 
computer will sound a high- 
pitched beep whenever it’s 
ready for you to scan a line. 
After a line has been success- 
fully read, you’ll hear a lower 
beep. A “blip-bloop” sound 
prompts you to turn your 
attention to the screen for a 
message. You’ll hear this when 
you accidentally scan a line 
out of sequence. 

After reading the first line, 
you continue scanning with 


the second line. Remember to 
wait for a high beep before 
scanning and then listen for 
a low beep to indicate a suc- 
cessful read. 

Once the last line of the 
listing has been scanned, 
BAREAD will return control to 
the Tandy 100/200 menu 
screen. Note that the program 
you just scanned is now in the 
directory with a .DO extension. 

The final step is to convert 
the .do text file to a normal 
basic program. This is done 
quite simply by going to basic 
and loading the file with a 
command such as lord~test 
.DO" (if the program name 
were test). The program will 
load into basic and will be 
ready to run. To save the 
program in basic’s com- 
pressed format (.BR exten- 
sion), you’d type SRVE"TEST~ 
(if the program were named 
TEST). You may then kill the 
.do file with kill "TEST.do". 
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1000 ' #** Initialize *## 

1010 ON ERROR GOTO 1040 
1020 CLEAR 1 000 : MAXF I LES=2 
1030 GOTO 1050 

1040 IF ERR=5 THEN RESUME NEXT 
1050 ON ERROR GOTO 0 
1060 RUNM "B30F9" 

1070 OPEN "WAND:" FOR INPUT AS #1 
1080 UC7.=-1 

1090 PC$= " 01 23456789ABCDEFGHI JKLMNOPQRST 
UVWXYZabcdefghijklmnopqrstuvwxyz- $ + " 
1100 DIM RW$ ( 36 ) 

1110 ER$(l)="You must scan line 1 -first! 

If 

1120 ER$ (2) = "You ' ve SKIPPED a line!" 

1130 ER$ (3) “"You ' ve ALREADY SCANNED this 

line! " 

1140 ER$ (4 ) = "Code not PCM2/39 format!" 
1150 ER$ (5) “"Command not applicable here 

I H 

1160 ER$(6)="You cannot skip this line!" 
1170 ER$ (7) ="Sel ected resume file not in 
computer ! " 

1180 ' *** Read Reserved Words List *** 
1190 DATA BEEP, CLEAR, CLOSE, DATA, DEFDBL,D 
EFINT,DEFNG,DEFSTR, ELSE, GO SUB, GOTO 
1200 DATA INKEY$, INPUT, I NSTR ( , LCOPY , LEFT 
$( ,LINE( ,LOADM,LPRINT, USING, MAXF ILES 
1210 DATA MID$(, NEXT, PEEK, POKE, POWER, PRE 
SET (, PR I NT, READ, RESTORE, RETURN, R I GHT$< 
1220 DATA SOUND, SPACE$( , STRINGS ( , THEN 
1230 FOR I7.= 1 TO 36: READ RW$ < 1 1 ) : NEXT 17. 
1240 ' *** Procedure Begins Here *** 

1250 CLS: PRINTS44, "PCM Bar Code Program 
Reader v2. 1 " 

1260 LINE(20,4)-(219,18) ,1,B:LINE(22,6)- 
(217,16) ,1,B 
1270 NN7.= 1 

1280 GOSUB 1660: IF ER7.>0 THEN GOSUB 1620 


THEN 


: GOTO 1280 

1290 IF LL7.=0 AND INSTR ( "YN" , IL$) >0 
ER7. = 5 : GOSUB 1620:GOTO 1280 
1300 IF LL7.=0 THEN ON INSTR ( "ALSR" , IL$) 
GOTO 1820,1890,1980,2050 
1310 IF LL7. = 1 295 THEN 1350 
1320 IF LL7.0NN7. AND NN7.=1 THEN ERX=1:G0 
SUB 1620: GOTO 1280 

1330 IF LL7.< NN7. THEN ER7. = 3:G0SUB 1620:GO 
TO 1280 

1340 IF LL7. >NN7. AND NN7.>1 THEN ER7.=2:GOS 
UB 1620: GOTO 1280 
1350 I L$=R I GHT$ ( I L$ , 1 9) 

IF L L 7. = 1 AND NN7.>0 THEN GOSUB 1780 
CL$=CL$+IL$ 

FOR I7.= l TO LEN(CLI) 
CH$=MID$(CL$,I%,1) 

IF CH$ = "7." THEN GOSUB 1510: IF NL 
1470 ELSE GOTO 1440 
TF CH$="/" THEN GOSUB 1550: IF NL 
1470 ELSE GOTO 1440 
IF CH$= " . " THEN UC7.=N0T (UC7.) : GOT 


1360 
1370 
1380 
1390 
1400 
7. THEN 
1410 
7. THEN 
1420 
0 1450 

1430 IF CH$=>"A" AND CH$<="Z" AND NOT 
(UC7.) THEN CH$=CHR$(ASC(CH$)+32) 

1440 XX$=XX$+CH$: IF RIGHT$ ( XX$ , 1 ) =CHR 
$(13) THEN PRINT#2,XX$;:XX$“"":UC7.»-1 
1450 NEXT 17. 

CL$ = “ " 

PRINTS200, SPACE $(80) ; 

IF LL 7. 01295 THEN NN7.=LL7. + 1 : GOTO 12 


1460 

1470 

1480 

80 

1490 

1500 

ENU 

1510 

1520 


' *** Done 
CLOSE: CALL 


*## 

6 1 807 ! : CLEAR 


500,HIMEM:M 


#*■* Decode Reserved Word *#* 
NL7.=0: IF 17. >LEN (CL$) -1 THEN NL7.*-1: 
CL$ = “7." : GOTO 1540 

1530 I7. ss I7. + l:CH$=RW$(INSTR(PC$,MID$(CL$, 
17., 1))) 


Submitting Material to PCM 


Contributions to PCM are wel- 
come from everyone. We like to run 
a variety of programs which will be 
useful/ helpful/fun for other Tandy 
Portable and MS-DOS computer 
owners. We now support the Model 
100, the Tandy 200, and the Tandy 
models 2000, 1200 and 1000. 

Program submissions must be on 
tape or disk, and it is best to make 
several saves, at least one of them 
in ASCII format. We’re sorry, but 
we do not have time to key in 
programs. All programs should be 


supported by some editorial com- 
mentary explaining how the pro- 
gram works. Generally, we’re much 
more interested in how your sub- 
mission works and runs than how 
you developed it. Programs should 
be learning experiences. 

Pay for submissions is based on 
a number of criteria. The rate of 
remuneration will be established 
and agreed upon prior to 
publication. 

For the benefit of those who wish 
more detailed information on mak- 

■ • " .• - ; . . • . \ - - v " ‘ 


ing submissions, please send a 
SASE to: Submissions Editor, 
PCM, P.O. Box 385, Prospect, KY 
40059. We will send you compre- 
hensive guidelines. 

Please do not submit programs 
or articles currently submitted to 
another publication. 

If you leel qualified to review 
software and/or hardware products 
for computers covered in PCM, send 
us your name, address and phone 
number; we will send you a ques- 
tionnaire form and a copy of our 
reviewer guidelines. 
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1540 RETURN 

1550 ' ♦** Decode Hex and Control Charac 
ters *** 

1560 NLX=0: IF IX>LEN (CLf ) -1 THEN NLX=-1: 
CL*="/":G0T0 1610 

1570 r/.= I7.+ l : IF INSTR ("/7.. ", MIDI (CL$ , IX , 
1))>0 THEN CH$=MID$(CL$,I7.,1) I GOTO 1610 
1580 IF I X >LEN ( CL$ ) - 1 THEN NLX=-1 : CL*=RI 
GHTI ( CLI , 2 ) : GOTO 1610 

1590 HX$=MID$(CL*, IX, 2) :CH$=CHR*( (INSTR( 
"0123456789ABCDEF" , LEFT! (HX* , 1 ) )-l)*16+I 
NS TR(" 01234 56789ABCDEF",RIGHT$(HX$,1))-1 
) 

1600 r/.=ix+i 

1610 RETURN 

1620 ' #*# Error Codes *## 

1630 SOUND 5000, 10: SOUND 8000, 10: SOUND 5 
000, 10 

1640 PRINT@220-.5*LEN(ER$(ERX) ) ,ER$(ERX) 

■ 

9 

1650 RETURN 

1660 ' *** Get Code Line *** 

1670 PRINTS173,""; sPRINT USING "Scan lin 
e ###" ; NNX 

1680 IF NNX=- 1 THEN PRINTS173, "Scan any 

line": GOTO 1700 

1690 SOUND 500,5 

1700 INPUT#1,IL*:ERX«0 

1710 FOR IX»1 TO LEN ( IL$) 

1720 IF MIDI < ILI , IX, 1 ) “" ! " THEN MIDI ( ILI 
,IX,1>=". " 

1730 NEXT IX 

1740 IF LEN ( ILI) < >1 AND LEN < ILI) < >21 THE 
N ERX=4: RETURN 

1750 IF LEN ( ILI) =1 THEN LLX=0: RETURN 
1760 LLI=LEFTI ( ILI , 2 ) : LLX= < INSTR < "012345 
6789ABCDEFGHIJKLMNOPQRSTUVWXYZ" ,LEFTI(LL 
1, 1 ) ) -1 ) *36 + INSTR < " 01 2345678 9ABCDEFGH I JK 
LMNOPQRSTUVWXYZ" ,RIGHTI(LLI, 1) )-l 
1770 RETURN 

1780 ' *** Open Program File *** 

1790 PNt=LEFTI ( I LI , 6) : ILI*RIGHTI ( ILI , LEN 
(ILI) -6) 

1800 OPEN PNI FOR OUTPUT AS #2 
1810 RETURN 


1820 *** Abort #** 

1830 BEEP: BEEP: BEEP 

1840 PRINTS209, "ABORT! Are you sure?"; 
1850 I NPUT# 1 , ANI 

1860 IF I NSTR ( " YN" , ANI) =0 THEN BEEPsPRIN 
T0251 , "Scan 'YES' or 'N0'":G0T0 1850 
1870 PRINT@200,SPACEI(80); 

1880 IF A N I s “ Y " THEN CLOSEsKILL PNI+“.D0 
" : GOTO 1490 ELSE GOTO 1280 
1890 ' *** Skip Line *** 

1900 IF NNX=1 THEN ERX=6:G0SUB 1620: GOTO 
1280 

1910 BEEP: BEEP: BEEP 

1920 PRINTS210 , "SKIP ! Are you sure?" 
1930 I NPUT # 1 , ANI 

1940 IF INSTR ( "YN" ,ANI) =0 THEN BEEPsPRIN 
T0251 , "Scan 'YES' or 'NO'":GOTQ 1930 
1950 PRINT@200,SPACEI(80) ; 

1960 IF AN! S " Y" THEN NNX=NNX+1 

1970 GOTO 1280 

1980 ' *** Stop & Save *** 

1990 BEEP: BEEP: BEEP 

2000 PRINTS207, "STOP «t SAVE! Are you sur 
e?“ ; 

2010 I NPUT # 1 , ANI 

2020 IF I NSTR ( " YN" , ANI ) =0 THEN BEEPsPRIN 
T0251 , "Scan 'YES' or 'NO'":GOTO 2010 
2030 PRINT@200,SPACEI(80) ; 

2040 IF ANI= " Y " THEN 1490 ELSE GOTO 1280 
2050 ' *** Resume *** 

2060 IF NNXOl THEN ERX=5:G0SUB 1620: GOT 
0 1280 

2070 PRINT0254, "Resume Mode"; 

2080 NNX=1 : GOSUB 1660 

2090 IF LLX=0 THEN ERX=5 ELSE IF LLXOl 

THEN ERX=1 

2100 IF ERX>0 THEN GOSUB 1620:GOTO 2060 
2110 PNI=MIDI ( ILI , 3 , 6) 

2120 ON ERROR GOTO 2140 

2130 OPEN PNI FOR INPUT AS #2:G0T0 2170 

2140 RESUME 2150 

2150 CLOSE #2 

2160 ERX=7: GOSUB 1 620: GOTO 1270 

2170 CLOSE #2: OPEN PNI FOR APPEND AS #2 

2180 NNX=-1 : GOTO 1280 
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Join us for our very first show . 




Y ou’re invited to PCMfest, a great new show that’s just 
for your Tandy computer. Sponsored by pcm, The 
Personal Computing Magazine for Tandy Computer Users , it's 
a wonderful way to meet and exchange information with those 
who share your interest in the new generation of Tand 
computers. 

You’ll also discover the greatest variety of products ever 
for your computer because all of the favorites ah{J a lot of 
new ones will be featured in the exhibits of pcm advertisers. 
Try out that new program and take it home that very day! 

Along with other pcm readers, you’ll meet the top national 
experts on your computer, including those who write for or 
who are written about in pcm. They will answer your questions 
on the spot. 

PCMfest also will include a comprehensive lineup of free 
seminars on topics of immediate concern — and all of them 
designed to help you get the most out of your Tandy computer. 

The Hyatt Regency— Princeton will be offering special rates 
($65, single or double room) for PCMfest. The show opens 
Friday evening with a 7 p.m. to 10 p.m. session. It’s a daytime- 
only show Saturday — the exhibits open at 10 a.m. and run 
continuously until 6 p.m. On Sunday, the exhibit hall opens 
at 1 1 a.m. and closes at 4 p.m. 

Tickets may be obtained directly from pcm. We’ll also send 
you a special reservation form so you can take advantage 
of the special room rate. Come to PCMfest and let’s celebrate 
the new generation of Tandy computers! 

Your admission to PCMfest also 
entitles you to attend RAINBOWfest, 
the highly popular show for the Tandy 
Color Computer which will run concurrently 
with PCMfest at the same location. 




Oct // '13 


Keynote Speaker 

III Barden, respected author of 30 books on various computer 
Subjects, will speak at our Saturday Breakfast at 8 a.m. (Separate 
tickets required.) 

Free Seminars 

Sam Redmon The Future of Portable Computing 

As co-founder of the Dallas-based Portable Computer Support 
Group, Sam markets a wide variety of software and hardware 
for the Tandy portables. 

Harry Brawley The Portable Computer Environment 
President of Sigea Systems, he is creator of the Telecommuter 
integrated communications and word processing software. 

Carl Oppedahl Computer Law and Portable Computers 
An attorney practicing law in Manhattan, Carl specializes in 
technological litigation. He is the author of a newly-published 
book titled Inside the TRS-80 Model 100. 

Bill Barden Computer Languages 

Discussion will include choosing the right language for your 
application and an overview of the most popular microcomputer 
languages including basic, c, pascal and Assembly. 

Bob Covington Data Communications 

A writer and editor from St. Louis, Bob is author of “The Portable 
Machine” series for the Tandy 100 and the “Subroutine City” series 
for Tandy’s MS-DOS computers. 

Howard Wolowitz Database Management 

President of Small Computer Company, Howard is one of the 
developers of Small's popular Profile and fifePro database 
management systems. 

Danny Humphress ViaNet— Tandy’s New Intra- 

Office Communications System 
pcm managing editor and author of the “MS-DOSsier” and “dBASE 
Tutor” series, Danny also owns a software firm in Louisville. 


YES, I’m coming to Princeton! I want to save by buying tickets now at the special advance sale price. 

Please send me: 

three-day tickets at $9 each total 

one-day tickets at $7 each total 

(Circle one) Friday Saturday Sunday 

Saturday Breakfast at $12 each total 

Handling Charge $1 

TOTAL ENCLOSED 

U.S. FUNDS ONLY, PLEASE 

□ Also send me a hotel reservation card for the Hyatt 
Regency-Princeton ($65, single or double room). 

Make checks payable to: PCM. Mail to: PCMfest, the Falsoft Building, P.O. Box 385, Prospect, KY 40059. To make reservations by 
phone, call: (502) 228-4492. 

Advance ticket deadline: October 4, 1985. Orders received less than two weeks prior to show opening will be held for you at the 
door. Tickets will also be available at the door at a slightly higher price. 


Name (please print) 

Address 

City State 

Telephone ZIP 

Company 

□ Payment enclosed, OR □ Charge to: 

□ VISA □ MasterCard □ American Express 

Account Number 

Exp. Date 

Signature 




plus powerful Nicad 
battery pack that gives 
30 hours of power 
to your Model 100 


A joint PCSG/CRYPTRONICS project. 


Now you can access LUCID, DISK + , 
WRITE ROM, RAM + and others 
instantly. 

The 6 ROM BANK plus battery pack lets 
you have the ultimate Model 100 system. 
When you get your unit just press in up 
to 6 ROMS into the sockets then push in 
a simple plug into your Model 100’s ROM 
socket. The ROM bank has two posts on 
either end that insert into the two little 
holes on the underside of your Model 100. 

The ROM bank props up the Model 100 at 
the same angle and height as those 
little legs you’ve seen. The ROM BANK 
itself is only about IV 2 ” deep and it runs 
the width of your Model 100. It only weighs 
one pound. It not only installs instantly, 
but it pops free in a second if you need 
everything to lie flat in a briefcase. 


Change from ROM to ROM with the 
touch of a thumb switch. 

You can go from LUCID to WRITE to 
DISK+ to any other ROMS just by turn- 
ing the thumb switch at the side of the 
ROM bank. The 6 ROM BANK is a sturdy 
well built construction that looks like it is 
a part of your Model 100. 

What is also fantastic is that the ROM 
bank has a powerful NICAD battery and 
recharger built right in. This power source 
supplies up to 30 hours of life to your 
Model 100 with just 6 hours of recharge. 
What’s nice is that it recharges right from 
your Model 100’s power adapter. This is 
a quick charge system and if you need 
power in a hurry, you can get 6 hours of 
life for your Model 100 by just charging for 
an hour and half. 


Suddenly, the Model 100 is a very 
powerful computer. 

If you have the HOLMES portable disk 
drive with its powerful bundled database 
software package or the CRYPTRONICS 
128K RAM expansion along with LUCID, 
WRITE ROM and DISK + in the 6 ROM 
bank with its rapid rechargable NICAD 
power source, you have the ultimate port- 
able system. It’s all available only from 
PCSG. 

As usual we don’t want you to take our 
word for it. The 6 ROM BANK is sold on 
a 30 day trial. If you are not satisfied 
simply return within thirty days for a full 
refund. MC, VISA, AM. EX. or C.O.D. 

1 - 214 - 351-0564 
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